home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Tape Archive
(archive/tar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Tape Archive (archive/tar)
| magic
| Supported |
| 100%
| file
| tar archive
| default
| |
| 99%
| file
| tar archive (old), directory !Forthmacs.risc_os.installjob., mode 700, uid 0, gid 0, size 0, seconds 6143620725, comment: Archie
| default
| |
| 98%
| file
| data
| default
| |
| 100%
| TrID
| TAR - Tape ARchive (directory)
| default
| |
| 100%
| lsar
| Tar
| default
| |
| 100%
| gt2
| Kopftext: '!Forthmacs.risc_os.installjob.'
| default (weak)
| |
| 100%
| disktype
| Pre-POSIX tar archive
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00000010| 6f 73 2e 69 6e 73 74 61 | 6c 6c 6a 6f 62 2e 00 00 |os.insta|lljob...|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 37 | 30 30 00 00 20 20 20 20 |.... 7|00.. |
|00000070| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00000080| 20 20 20 20 20 20 30 00 | 20 36 31 34 33 36 32 30 | 0.| 6143620|
|00000090| 37 32 35 00 20 31 37 31 | 33 30 00 20 35 00 00 00 |725. 171|30. 5...|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00000110| 36 35 30 36 00 33 31 32 | 34 30 35 32 30 36 31 37 |6506.312|40520617|
|00000120| 00 20 20 20 20 20 20 20 | 20 20 20 30 00 34 36 20 |. | 0.46 |
|00000130| 63 61 38 32 61 31 38 66 | 00 00 00 00 00 00 00 00 |ca82a18f|........|
|00000140| 00 00 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.....A..|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00000210| 6f 73 2e 69 6e 73 74 61 | 6c 6c 6a 6f 62 2e 53 65 |os.insta|lljob.Se|
|00000220| 72 69 61 6c 00 00 00 00 | 00 00 00 00 00 00 00 00 |rial....|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00000270| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00000280| 20 20 20 20 31 35 31 00 | 20 36 31 32 30 30 31 37 | 151.| 6120017|
|00000290| 36 31 33 00 20 32 31 33 | 35 36 00 20 30 00 00 00 |613. 213|56. 0...|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00000310| 37 35 30 36 00 32 35 33 | 35 31 33 33 36 33 33 32 |7506.253|51336332|
|00000320| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 36 20 |. | 3.46 |
|00000330| 61 62 61 35 62 63 64 61 | 00 20 20 20 20 20 20 20 |aba5bcda|. |
|00000340| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 2e 28 20 54 68 65 20 73 | 65 72 69 61 6c 20 64 72 |.( The s|erial dr|
|00000410| 69 76 65 72 20 73 75 70 | 70 6f 72 74 20 68 61 73 |iver sup|port has|
|00000420| 20 62 65 65 6e 20 69 6e | 73 74 61 6c 6c 65 64 2c | been in|stalled,|
|00000430| 29 20 63 72 0a 2e 28 20 | 59 6f 75 20 77 69 6c 6c |) cr..( |You will|
|00000440| 20 61 6c 73 6f 20 6e 65 | 65 64 20 74 68 65 20 53 | also ne|ed the S|
|00000450| 65 72 69 61 6c 44 65 76 | 20 61 70 70 6c 69 63 61 |erialDev| applica|
|00000460| 74 69 6f 6e 2e 29 20 63 | 72 00 00 00 00 00 00 00 |tion.) c|r.......|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00000610| 6f 73 2e 73 65 72 69 61 | 6c 5f 64 65 76 00 00 00 |os.seria|l_dev...|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00000670| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00000680| 20 20 31 32 37 34 37 00 | 20 36 31 35 37 37 36 31 | 12747.| 6157761|
|00000690| 37 35 33 00 20 32 30 30 | 32 30 00 20 30 00 00 00 |753. 200|20. 0...|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00000710| 37 35 30 36 00 33 33 35 | 34 33 34 37 31 31 33 32 |7506.335|43471132|
|00000720| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 36 20 |. | 3.46 |
|00000730| 64 64 38 65 37 32 35 61 | 00 20 20 20 20 20 20 20 |dd8e725a|. |
|00000740| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 5c 20 53 65 72 69 61 6c | 20 63 6f 6d 6d 75 6e 69 |\ Serial| communi|
|00000810| 63 61 74 69 6f 6e 73 0a | 5c 20 52 49 53 43 20 4f |cations.|\ RISC O|
|00000820| 53 20 46 6f 72 74 68 6d | 61 63 73 20 73 75 70 70 |S Forthm|acs supp|
|00000830| 6f 72 74 20 66 6f 72 20 | 53 65 72 69 61 6c 44 65 |ort for |SerialDe|
|00000840| 76 20 62 79 20 48 75 67 | 6f 20 46 69 65 6e 6e 65 |v by Hug|o Fienne|
|00000850| 73 0a 5c 20 56 20 32 2e | 32 20 30 34 2e 30 36 2e |s.\ V 2.|2 04.06.|
|00000860| 39 36 0a 5c 20 53 65 72 | 69 61 6c 44 65 76 20 64 |96.\ Ser|ialDev d|
|00000870| 72 69 76 65 72 20 66 6f | 75 6e 64 20 69 6e 20 72 |river fo|und in r|
|00000880| 69 73 63 5f 6f 73 2e 73 | 65 72 69 61 6c 64 65 76 |isc_os.s|erialdev|
|00000890| 2e 3f 3f 3f 3f 2e 64 72 | 69 76 65 72 0a 20 0a 76 |.????.dr|iver. .v|
|000008a0| 6f 63 61 62 75 6c 61 72 | 79 20 6d 6f 64 65 6d 20 |ocabular|y modem |
|000008b0| 20 6f 6e 6c 79 20 66 6f | 72 74 68 20 61 6c 73 6f | only fo|rth also|
|000008c0| 20 73 79 73 74 65 6d 20 | 61 6c 73 6f 20 6d 6f 64 | system |also mod|
|000008d0| 65 6d 20 61 6c 73 6f 20 | 64 65 66 69 6e 69 74 69 |em also |definiti|
|000008e0| 6f 6e 73 20 20 64 65 63 | 69 6d 61 6c 0a 0a 35 20 |ons dec|imal..5 |
|000008f0| 63 6f 6e 73 74 61 6e 74 | 20 23 64 72 69 76 65 72 |constant| #driver|
|00000900| 73 09 5c 20 6e 75 6d 62 | 65 72 20 6f 66 20 73 65 |s.\ numb|er of se|
|00000910| 72 69 61 6c 20 64 72 69 | 76 65 72 73 20 75 73 65 |rial dri|vers use|
|00000920| 64 2c 20 65 61 63 68 20 | 6d 61 79 20 68 61 76 65 |d, each |may have|
|00000930| 20 74 77 6f 20 70 6f 72 | 74 73 0a 09 09 09 5c 20 | two por|ts....\ |
|00000940| 64 72 69 76 65 72 30 20 | 69 73 20 61 20 66 61 6b |driver0 |is a fak|
|00000950| 65 0a 76 61 72 69 61 62 | 6c 65 20 6e 65 78 74 2d |e.variab|le next-|
|00000960| 64 72 69 76 65 72 0a 6e | 75 73 65 72 20 63 68 61 |driver.n|user cha|
|00000970| 6e 6e 65 6c 23 09 09 5c | 20 75 73 65 64 20 73 65 |nnel#..\| used se|
|00000980| 72 69 61 6c 20 63 68 61 | 6e 6e 65 6c 20 62 79 20 |rial cha|nnel by |
|00000990| 74 68 69 73 20 74 61 73 | 6b 0a 0a 63 72 65 61 74 |this tas|k..creat|
|000009a0| 65 20 64 72 69 76 65 72 | 73 09 09 23 64 72 69 76 |e driver|s..#driv|
|000009b0| 65 72 73 20 63 65 6c 6c | 73 20 61 6c 6c 6f 74 0a |ers cell|s allot.|
|000009c0| 63 72 65 61 74 65 20 64 | 72 69 76 65 72 2d 6e 61 |create d|river-na|
|000009d0| 6d 65 73 09 23 64 72 69 | 76 65 72 73 20 64 23 20 |mes.#dri|vers d# |
|000009e0| 33 32 20 2a 20 61 6c 6c | 6f 74 0a 63 72 65 61 74 |32 * all|ot.creat|
|000009f0| 65 20 63 68 61 6e 6e 65 | 6c 73 09 09 23 64 72 69 |e channe|ls..#dri|
|00000a00| 76 65 72 73 20 32 2a 20 | 63 65 6c 6c 73 20 61 6c |vers 2* |cells al|
|00000a10| 6c 6f 74 0a 0a 3a 20 3e | 64 72 69 76 65 72 09 09 |lot..: >|driver..|
|00000a20| 28 20 69 20 2d 2d 20 61 | 64 64 72 20 29 09 63 65 |( i -- a|ddr ).ce|
|00000a30| 6c 6c 73 20 64 72 69 76 | 65 72 73 20 2b 20 3b 0a |lls driv|ers + ;.|
|00000a40| 3a 20 3e 64 72 69 76 65 | 72 6e 61 6d 65 09 09 28 |: >drive|rname..(|
|00000a50| 20 69 20 2d 2d 20 61 64 | 64 72 20 29 09 64 23 20 | i -- ad|dr ).d# |
|00000a60| 33 32 20 2a 20 20 64 72 | 69 76 65 72 2d 6e 61 6d |32 * dr|iver-nam|
|00000a70| 65 73 20 2b 20 3b 0a 3a | 20 3e 63 68 61 6e 6e 65 |es + ;.:| >channe|
|00000a80| 6c 09 09 28 20 69 20 2d | 2d 20 61 64 64 72 20 29 |l..( i -|- addr )|
|00000a90| 09 63 65 6c 6c 73 20 63 | 68 61 6e 6e 65 6c 73 20 |.cells c|hannels |
|00000aa0| 2b 20 3b 0a 0a 3a 20 69 | 6e 69 74 2d 64 72 69 76 |+ ;..: i|nit-driv|
|00000ab0| 65 72 73 09 28 20 2d 2d | 20 29 0a 09 63 68 61 6e |ers.( --| )..chan|
|00000ac0| 6e 65 6c 23 20 6f 66 66 | 0a 09 31 20 6e 65 78 74 |nel# off|..1 next|
|00000ad0| 2d 64 72 69 76 65 72 20 | 21 0a 09 64 72 69 76 65 |-driver |!..drive|
|00000ae0| 72 73 20 23 64 72 69 76 | 65 72 73 20 63 65 6c 6c |rs #driv|ers cell|
|00000af0| 73 20 65 72 61 73 65 0a | 20 20 20 20 20 20 20 20 |s erase.| |
|00000b00| 64 72 69 76 65 72 2d 6e | 61 6d 65 73 20 23 64 72 |driver-n|ames #dr|
|00000b10| 69 76 65 72 73 20 64 23 | 20 33 32 20 2a 20 65 72 |ivers d#| 32 * er|
|00000b20| 61 73 65 0a 20 20 20 20 | 20 20 20 20 63 68 61 6e |ase. | chan|
|00000b30| 6e 65 6c 73 20 23 64 72 | 69 76 65 72 73 20 32 2a |nels #dr|ivers 2*|
|00000b40| 20 63 65 6c 6c 73 20 65 | 72 61 73 65 20 3b 20 20 | cells e|rase ; |
|00000b50| 69 6e 69 74 2d 64 72 69 | 76 65 72 73 0a 3a 20 6c |init-dri|vers.: l|
|00000b60| 6f 61 64 2d 64 72 69 76 | 65 72 09 28 20 6e 61 6d |oad-driv|er.( nam|
|00000b70| 65 20 2d 2d 20 29 0a 09 | 61 73 74 72 69 6e 67 20 |e -- )..|astring |
|00000b80| 22 6d 6f 76 65 20 64 75 | 70 20 63 6f 75 6e 74 20 |"move du|p count |
|00000b90| 6c 6f 77 65 72 0a 09 6e | 65 78 74 2d 64 72 69 76 |lower..n|ext-driv|
|00000ba0| 65 72 20 40 20 23 64 72 | 69 76 65 72 73 20 3e 20 |er @ #dr|ivers > |
|00000bb0| 69 66 20 64 23 20 2d 36 | 33 30 20 74 68 72 6f 77 |if d# -6|30 throw|
|00000bc0| 20 74 68 65 6e 0a 09 68 | 23 20 32 30 30 30 20 61 | then..h|# 2000 a|
|00000bd0| 6c 6c 6f 63 61 74 65 20 | 69 66 20 64 72 6f 70 20 |llocate |if drop |
|00000be0| 66 61 6c 73 65 20 65 78 | 69 74 20 74 68 65 6e 0a |false ex|it then.|
|00000bf0| 09 61 73 74 72 69 6e 67 | 20 61 73 74 72 69 6e 67 |.astring| astring|
|00000c00| 20 6c 6f 63 61 6c 73 7c | 20 6c 6f 61 64 61 64 64 | locals|| loadadd|
|00000c10| 72 65 73 73 20 63 6c 69 | 2d 73 74 72 69 6e 67 20 |ress cli|-string |
|00000c20| 64 72 69 76 65 72 2d 69 | 64 20 7c 0a 09 62 61 73 |driver-i|d |..bas|
|00000c30| 65 20 40 20 68 65 78 20 | 64 72 69 76 65 72 2d 69 |e @ hex |driver-i|
|00000c40| 64 20 28 75 2e 29 20 6c | 6f 61 64 61 64 64 72 65 |d (u.) l|oadaddre|
|00000c50| 73 73 20 70 61 63 6b 20 | 64 72 6f 70 20 62 61 73 |ss pack |drop bas|
|00000c60| 65 20 21 0a 09 6e 65 78 | 74 2d 64 72 69 76 65 72 |e !..nex|t-driver|
|00000c70| 20 40 20 3e 64 72 69 76 | 65 72 6e 61 6d 65 20 22 | @ >driv|ername "|
|00000c80| 6d 6f 76 65 0a 09 70 22 | 20 4c 4f 41 44 20 46 6f |move..p"| LOAD Fo|
|00000c90| 72 74 68 6d 61 63 73 3a | 72 69 73 63 5f 6f 73 2e |rthmacs:|risc_os.|
|00000ca0| 53 65 72 69 61 6c 44 65 | 76 2e 22 20 63 6c 69 2d |SerialDe|v." cli-|
|00000cb0| 73 74 72 69 6e 67 20 22 | 63 6f 70 79 0a 09 63 6c |string "|copy..cl|
|00000cc0| 69 2d 73 74 72 69 6e 67 | 20 22 63 61 74 20 70 22 |i-string| "cat p"|
|00000cd0| 20 2e 64 72 69 76 65 72 | 20 22 20 63 6c 69 2d 73 | .driver| " cli-s|
|00000ce0| 74 72 69 6e 67 20 22 63 | 61 74 20 20 6c 6f 61 64 |tring "c|at load|
|00000cf0| 61 64 64 72 65 73 73 20 | 63 6c 69 2d 73 74 72 69 |address |cli-stri|
|00000d00| 6e 67 20 22 63 61 74 0a | 09 63 6c 69 2d 73 74 72 |ng "cat.|.cli-str|
|00000d10| 69 6e 67 20 22 63 6c 69 | 0a 09 69 66 20 66 61 6c |ing "cli|..if fal|
|00000d20| 73 65 20 65 6c 73 65 20 | 64 72 69 76 65 72 2d 69 |se else |driver-i|
|00000d30| 64 20 74 68 65 6e 0a 09 | 3f 64 75 70 20 30 3d 20 |d then..|?dup 0= |
|00000d40| 69 66 20 64 23 20 2d 36 | 33 31 20 74 68 72 6f 77 |if d# -6|31 throw|
|00000d50| 20 74 68 65 6e 20 0a 09 | 6e 65 78 74 2d 64 72 69 | then ..|next-dri|
|00000d60| 76 65 72 20 40 20 3e 64 | 72 69 76 65 72 20 21 0a |ver @ >d|river !.|
|00000d70| 09 31 20 6e 65 78 74 2d | 64 72 69 76 65 72 20 2b |.1 next-|driver +|
|00000d80| 21 20 3b 0a 3a 20 75 73 | 65 2d 63 68 61 6e 6e 65 |! ;.: us|e-channe|
|00000d90| 6c 09 28 20 6e 20 2d 2d | 20 29 0a 09 64 75 70 20 |l.( n --| )..dup |
|00000da0| 32 20 6e 65 78 74 2d 64 | 72 69 76 65 72 20 40 20 |2 next-d|river @ |
|00000db0| 32 2a 20 77 69 74 68 69 | 6e 20 30 3d 20 69 66 20 |2* withi|n 0= if |
|00000dc0| 64 23 20 2d 36 33 32 20 | 74 68 72 6f 77 20 74 68 |d# -632 |throw th|
|00000dd0| 65 6e 0a 09 63 68 61 6e | 6e 65 6c 23 20 21 20 3b |en..chan|nel# ! ;|
|00000de0| 0a 0a 5c 20 53 65 72 69 | 61 6c 44 65 76 20 64 72 |..\ Seri|alDev dr|
|00000df0| 69 76 65 72 20 66 75 6e | 63 74 69 6f 6e 20 63 61 |iver fun|ction ca|
|00000e00| 6c 6c 20 69 6e 74 65 72 | 66 61 63 65 20 75 73 69 |ll inter|face usi|
|00000e10| 6e 67 20 64 72 69 76 65 | 72 2d 69 64 0a 3a 20 73 |ng drive|r-id.: s|
|00000e20| 65 72 69 61 6c 2d 65 72 | 72 6f 72 09 64 23 20 2d |erial-er|ror.d# -|
|00000e30| 36 33 33 20 74 68 72 6f | 77 20 3b 0a 63 6f 64 65 |633 thro|w ;.code|
|00000e40| 20 73 65 72 69 61 6c 5f | 66 75 6e 63 74 69 6f 6e | serial_|function|
|00000e50| 09 5c 20 28 20 72 32 20 | 66 75 6e 63 74 69 6f 6e |.\ ( r2 |function|
|00000e60| 2d 63 6f 64 65 20 2d 2d | 20 72 65 73 75 6c 74 20 |-code --| result |
|00000e70| 29 0a 09 72 30 09 74 6f | 70 09 09 6d 6f 76 09 5c |)..r0.to|p..mov.\|
|00000e80| 20 73 65 74 20 66 75 63 | 74 69 6f 6e 2d 63 6f 64 | set fuc|tion-cod|
|00000e90| 65 0a 09 72 34 09 27 75 | 73 65 72 20 63 68 61 6e |e..r4.'u|ser chan|
|00000ea0| 6e 65 6c 23 09 6c 64 72 | 0a 09 72 31 09 72 34 09 |nel#.ldr|..r1.r4.|
|00000eb0| 31 20 23 09 61 6e 64 09 | 5c 20 73 65 74 20 70 6f |1 #.and.|\ set po|
|00000ec0| 72 74 23 0a 09 72 32 09 | 73 70 09 09 70 6f 70 09 |rt#..r2.|sp..pop.|
|00000ed0| 5c 20 67 65 74 20 72 32 | 2d 64 61 74 61 0a 09 74 |\ get r2|-data..t|
|00000ee0| 6f 70 09 27 62 6f 64 79 | 20 63 68 61 6e 6e 65 6c |op.'body| channel|
|00000ef0| 73 09 61 64 72 0a 09 74 | 6f 70 09 74 6f 70 20 20 |s.adr..t|op.top |
|00000f00| 20 72 34 20 32 20 23 61 | 73 6c 09 61 64 64 0a 09 | r4 2 #a|sl.add..|
|00000f10| 74 6f 70 09 74 6f 70 20 | 29 09 09 6c 64 72 0a 09 |top.top |)..ldr..|
|00000f20| 74 6f 70 09 30 20 23 09 | 09 63 6d 70 0a 09 74 6f |top.0 #.|.cmp..to|
|00000f30| 70 09 27 20 73 65 72 69 | 61 6c 2d 65 72 72 6f 72 |p.' seri|al-error|
|00000f40| 09 65 71 20 61 64 72 20 | 0a 09 6c 6b 09 70 63 20 |.eq adr |..lk.pc |
|00000f50| 68 23 20 66 63 30 30 30 | 30 30 33 20 23 20 62 69 |h# fc000|003 # bi|
|00000f60| 63 0a 09 70 63 09 74 6f | 70 09 09 6d 6f 76 0a 09 |c..pc.to|p..mov..|
|00000f70| 74 6f 70 09 72 30 09 09 | 6d 6f 76 20 63 3b 0a 0a |top.r0..|mov c;..|
|00000f80| 5c 20 41 6c 6c 20 64 72 | 69 76 65 72 2d 66 75 6e |\ All dr|iver-fun|
|00000f90| 63 74 69 6f 6e 73 20 75 | 73 65 20 64 72 69 76 65 |ctions u|se drive|
|00000fa0| 72 2d 69 64 0a 3a 20 28 | 6d 2d 65 6d 69 74 29 09 |r-id.: (|m-emit).|
|00000fb0| 28 20 63 68 61 72 20 2d | 2d 20 65 72 72 3f 29 09 |( char -|- err?).|
|00000fc0| 30 20 73 65 72 69 61 6c | 5f 66 75 6e 63 74 69 6f |0 serial|_functio|
|00000fd0| 6e 20 3b 0a 3a 20 28 6d | 2d 6b 65 79 29 09 28 20 |n ;.: (m|-key).( |
|00000fe0| 2d 2d 20 6b 65 79 2f 2d | 31 20 29 09 30 20 20 31 |-- key/-|1 ).0 1|
|00000ff0| 20 73 65 72 69 61 6c 5f | 66 75 6e 63 74 69 6f 6e | serial_|function|
|00001000| 20 3b 0a 3a 20 28 6d 2d | 65 6d 69 74 3f 29 09 28 | ;.: (m-|emit?).(|
|00001010| 20 2d 2d 20 66 72 65 65 | 69 6e 74 78 29 09 30 20 | -- free|intx).0 |
|00001020| 20 34 20 73 65 72 69 61 | 6c 5f 66 75 6e 63 74 69 | 4 seria|l_functi|
|00001030| 6f 6e 20 3b 0a 3a 20 28 | 6d 2d 6b 65 79 3f 29 09 |on ;.: (|m-key?).|
|00001040| 28 20 2d 2d 20 72 65 63 | 65 69 76 65 64 23 29 09 |( -- rec|eived#).|
|00001050| 30 20 20 35 20 73 65 72 | 69 61 6c 5f 66 75 6e 63 |0 5 ser|ial_func|
|00001060| 74 69 6f 6e 20 3b 0a 3a | 20 66 6c 75 73 68 2d 74 |tion ;.:| flush-t|
|00001070| 78 09 28 20 2d 2d 20 29 | 09 09 30 20 20 36 20 73 |x.( -- )|..0 6 s|
|00001080| 65 72 69 61 6c 5f 66 75 | 6e 63 74 69 6f 6e 20 64 |erial_fu|nction d|
|00001090| 72 6f 70 20 3b 0a 3a 20 | 66 6c 75 73 68 2d 72 78 |rop ;.: |flush-rx|
|000010a0| 09 28 20 2d 2d 20 29 09 | 09 30 20 20 37 20 73 65 |.( -- ).|.0 7 se|
|000010b0| 72 69 61 6c 5f 66 75 6e | 63 74 69 6f 6e 20 64 72 |rial_fun|ction dr|
|000010c0| 6f 70 20 3b 0a 3a 20 67 | 65 74 2d 63 2d 6c 69 6e |op ;.: g|et-c-lin|
|000010d0| 65 73 09 28 20 2d 2d 20 | 6e 20 29 09 2d 31 20 38 |es.( -- |n ).-1 8|
|000010e0| 20 73 65 72 69 61 6c 5f | 66 75 6e 63 74 69 6f 6e | serial_|function|
|000010f0| 20 3b 0a 3a 20 73 65 74 | 2d 63 2d 6c 69 6e 65 73 | ;.: set|-c-lines|
|00001100| 09 28 20 6e 20 2d 2d 20 | 29 09 38 20 73 65 72 69 |.( n -- |).8 seri|
|00001110| 61 6c 5f 66 75 6e 63 74 | 69 6f 6e 20 64 72 6f 70 |al_funct|ion drop|
|00001120| 20 3b 0a 3a 20 67 65 74 | 2d 6d 2d 6c 69 6e 65 73 | ;.: get|-m-lines|
|00001130| 09 28 20 2d 2d 20 6e 20 | 29 09 30 20 20 39 20 73 |.( -- n |).0 9 s|
|00001140| 65 72 69 61 6c 5f 66 75 | 6e 63 74 69 6f 6e 20 3b |erial_fu|nction ;|
|00001150| 0a 3a 20 72 78 2d 65 72 | 72 6f 72 73 09 28 20 2d |.: rx-er|rors.( -|
|00001160| 2d 20 65 72 72 2d 6d 61 | 73 6b 29 09 30 20 31 30 |- err-ma|sk).0 10|
|00001170| 20 73 65 72 69 61 6c 5f | 66 75 6e 63 74 69 6f 6e | serial_|function|
|00001180| 20 3b 0a 3a 20 62 72 65 | 61 6b 09 09 28 20 2d 2d | ;.: bre|ak..( --|
|00001190| 20 29 09 09 35 30 20 31 | 31 20 73 65 72 69 61 6c | )..50 1|1 serial|
|000011a0| 5f 66 75 6e 63 74 69 6f | 6e 20 64 72 6f 70 20 3b |_functio|n drop ;|
|000011b0| 0a 3a 20 67 65 74 2d 62 | 61 75 64 09 28 20 2d 2d |.: get-b|aud.( --|
|000011c0| 20 6e 20 29 09 2d 31 20 | 31 33 20 73 65 72 69 61 | n ).-1 |13 seria|
|000011d0| 6c 5f 66 75 6e 63 74 69 | 6f 6e 20 3b 0a 3a 20 73 |l_functi|on ;.: s|
|000011e0| 65 74 2d 62 61 75 64 09 | 28 20 6e 20 2d 2d 20 29 |et-baud.|( n -- )|
|000011f0| 09 64 75 70 20 31 33 20 | 73 65 72 69 61 6c 5f 66 |.dup 13 |serial_f|
|00001200| 75 6e 63 74 69 6f 6e 20 | 64 72 6f 70 0a 09 09 09 |unction |drop....|
|00001210| 09 31 34 20 73 65 72 69 | 61 6c 5f 66 75 6e 63 74 |.14 seri|al_funct|
|00001220| 69 6f 6e 20 64 72 6f 70 | 20 3b 0a 3a 20 67 65 74 |ion drop| ;.: get|
|00001230| 2d 66 6f 72 6d 61 74 09 | 28 20 2d 2d 20 6e 20 29 |-format.|( -- n )|
|00001240| 09 2d 31 20 31 35 20 73 | 65 72 69 61 6c 5f 66 75 |.-1 15 s|erial_fu|
|00001250| 6e 63 74 69 6f 6e 20 3b | 0a 3a 20 73 65 74 2d 66 |nction ;|.: set-f|
|00001260| 6f 72 6d 61 74 09 28 20 | 6e 20 2d 2d 20 29 09 31 |ormat.( |n -- ).1|
|00001270| 35 20 73 65 72 69 61 6c | 5f 66 75 6e 63 74 69 6f |5 serial|_functio|
|00001280| 6e 20 64 72 6f 70 20 3b | 0a 3a 20 67 65 74 2d 63 |n drop ;|.: get-c|
|00001290| 6f 6e 74 72 6f 6c 09 28 | 20 2d 2d 20 6e 20 29 09 |ontrol.(| -- n ).|
|000012a0| 2d 31 20 31 36 20 73 65 | 72 69 61 6c 5f 66 75 6e |-1 16 se|rial_fun|
|000012b0| 63 74 69 6f 6e 20 3b 0a | 3a 20 73 65 74 2d 63 6f |ction ;.|: set-co|
|000012c0| 6e 74 72 6f 6c 09 28 20 | 6e 20 2d 2d 20 29 09 31 |ntrol.( |n -- ).1|
|000012d0| 36 20 73 65 72 69 61 6c | 5f 66 75 6e 63 74 69 6f |6 serial|_functio|
|000012e0| 6e 20 64 72 6f 70 20 3b | 0a 3a 20 69 6e 69 74 2d |n drop ;|.: init-|
|000012f0| 64 72 69 76 65 72 09 28 | 20 2d 2d 20 66 6c 61 67 |driver.(| -- flag|
|00001300| 20 29 09 30 20 31 37 20 | 73 65 72 69 61 6c 5f 66 | ).0 17 |serial_f|
|00001310| 75 6e 63 74 69 6f 6e 20 | 3b 0a 3a 20 63 6c 6f 73 |unction |;.: clos|
|00001320| 65 2d 64 72 69 76 65 72 | 09 28 20 2d 2d 20 29 09 |e-driver|.( -- ).|
|00001330| 09 30 20 31 38 20 73 65 | 72 69 61 6c 5f 66 75 6e |.0 18 se|rial_fun|
|00001340| 63 74 69 6f 6e 20 64 72 | 6f 70 20 3b 0a 3a 20 70 |ction dr|op ;.: p|
|00001350| 6f 6c 6c 2d 64 72 69 76 | 65 72 09 28 20 2d 2d 20 |oll-driv|er.( -- |
|00001360| 29 09 09 30 20 31 39 20 | 73 65 72 69 61 6c 5f 66 |)..0 19 |serial_f|
|00001370| 75 6e 63 74 69 6f 6e 20 | 64 72 6f 70 20 3b 0a 0a |unction |drop ;..|
|00001380| 3a 20 35 37 36 30 30 2d | 62 61 75 64 09 28 20 2d |: 57600-|baud.( -|
|00001390| 2d 20 29 09 09 35 37 36 | 30 30 20 73 65 74 2d 62 |- )..576|00 set-b|
|000013a0| 61 75 64 20 3b 0a 3a 20 | 33 38 34 30 30 2d 62 61 |aud ;.: |38400-ba|
|000013b0| 75 64 09 28 20 2d 2d 20 | 29 09 09 33 38 34 30 30 |ud.( -- |)..38400|
|000013c0| 20 73 65 74 2d 62 61 75 | 64 20 3b 0a 3a 20 31 39 | set-bau|d ;.: 19|
|000013d0| 32 30 30 2d 62 61 75 64 | 09 28 20 2d 2d 20 29 09 |200-baud|.( -- ).|
|000013e0| 09 31 39 32 30 30 20 73 | 65 74 2d 62 61 75 64 20 |.19200 s|et-baud |
|000013f0| 3b 0a 3a 20 39 36 30 30 | 2d 62 61 75 64 09 28 20 |;.: 9600|-baud.( |
|00001400| 2d 2d 20 29 09 09 39 36 | 30 30 20 20 73 65 74 2d |-- )..96|00 set-|
|00001410| 62 61 75 64 20 3b 0a 3a | 20 34 38 30 30 2d 62 61 |baud ;.:| 4800-ba|
|00001420| 75 64 09 28 20 2d 2d 20 | 29 09 09 34 38 30 30 20 |ud.( -- |)..4800 |
|00001430| 20 73 65 74 2d 62 61 75 | 64 20 3b 0a 3a 20 32 34 | set-bau|d ;.: 24|
|00001440| 30 30 2d 62 61 75 64 09 | 28 20 2d 2d 20 29 09 09 |00-baud.|( -- )..|
|00001450| 32 34 30 30 20 20 73 65 | 74 2d 62 61 75 64 20 3b |2400 se|t-baud ;|
|00001460| 0a 0a 3a 20 31 2d 73 74 | 6f 70 2d 62 69 74 09 28 |..: 1-st|op-bit.(|
|00001470| 20 2d 2d 20 29 09 09 67 | 65 74 2d 66 6f 72 6d 61 | -- )..g|et-forma|
|00001480| 74 20 62 23 20 31 31 31 | 30 31 31 20 61 6e 64 20 |t b# 111|011 and |
|00001490| 20 73 65 74 2d 66 6f 72 | 6d 61 74 20 3b 0a 3a 20 | set-for|mat ;.: |
|000014a0| 32 2d 73 74 6f 70 2d 62 | 69 74 73 09 28 20 2d 2d |2-stop-b|its.( --|
|000014b0| 20 29 09 09 67 65 74 2d | 66 6f 72 6d 61 74 20 62 | )..get-|format b|
|000014c0| 23 20 31 31 31 30 31 31 | 20 61 6e 64 20 20 62 23 |# 111011| and b#|
|000014d0| 20 30 30 30 31 30 30 20 | 6f 72 20 20 73 65 74 2d | 000100 |or set-|
|000014e0| 66 6f 72 6d 61 74 20 3b | 0a 3a 20 38 2d 62 69 74 |format ;|.: 8-bit|
|000014f0| 73 09 28 20 2d 2d 20 29 | 09 09 67 65 74 2d 66 6f |s.( -- )|..get-fo|
|00001500| 72 6d 61 74 20 62 23 20 | 31 31 31 31 30 30 20 61 |rmat b# |111100 a|
|00001510| 6e 64 20 20 73 65 74 2d | 66 6f 72 6d 61 74 20 3b |nd set-|format ;|
|00001520| 0a 3a 20 37 2d 62 69 74 | 73 09 28 20 2d 2d 20 29 |.: 7-bit|s.( -- )|
|00001530| 09 09 67 65 74 2d 66 6f | 72 6d 61 74 20 62 23 20 |..get-fo|rmat b# |
|00001540| 31 31 31 31 30 30 20 61 | 6e 64 20 20 62 23 20 30 |111100 a|nd b# 0|
|00001550| 30 30 30 30 31 20 6f 72 | 20 20 73 65 74 2d 66 6f |00001 or| set-fo|
|00001560| 72 6d 61 74 20 3b 0a 3a | 20 6e 6f 2d 70 61 72 69 |rmat ;.:| no-pari|
|00001570| 74 79 09 28 20 2d 2d 20 | 29 09 09 67 65 74 2d 66 |ty.( -- |)..get-f|
|00001580| 6f 72 6d 61 74 20 62 23 | 20 31 31 30 31 31 31 20 |ormat b#| 110111 |
|00001590| 61 6e 64 20 20 73 65 74 | 2d 66 6f 72 6d 61 74 20 |and set|-format |
|000015a0| 3b 0a 3a 20 6f 64 64 2d | 70 61 72 69 74 79 09 28 |;.: odd-|parity.(|
|000015b0| 20 2d 2d 20 29 09 09 67 | 65 74 2d 66 6f 72 6d 61 | -- )..g|et-forma|
|000015c0| 74 20 62 23 20 30 30 30 | 31 31 31 20 61 6e 64 20 |t b# 000|111 and |
|000015d0| 20 62 23 20 30 30 31 30 | 30 30 20 6f 72 20 20 73 | b# 0010|00 or s|
|000015e0| 65 74 2d 66 6f 72 6d 61 | 74 20 3b 0a 3a 20 65 76 |et-forma|t ;.: ev|
|000015f0| 65 6e 2d 70 61 72 69 74 | 79 09 28 20 2d 2d 20 29 |en-parit|y.( -- )|
|00001600| 09 09 67 65 74 2d 66 6f | 72 6d 61 74 20 62 23 20 |..get-fo|rmat b# |
|00001610| 30 30 30 31 31 31 20 61 | 6e 64 20 20 62 23 20 30 |000111 a|nd b# 0|
|00001620| 31 31 30 30 30 20 6f 72 | 20 20 73 65 74 2d 66 6f |11000 or| set-fo|
|00001630| 72 6d 61 74 20 3b 0a 0a | 3a 20 6e 6f 2d 66 6c 6f |rmat ;..|: no-flo|
|00001640| 77 2d 63 6f 6e 74 72 6f | 6c 09 09 30 20 73 65 74 |w-contro|l..0 set|
|00001650| 2d 63 6f 6e 74 72 6f 6c | 20 3b 0a 3a 20 72 74 73 |-control| ;.: rts|
|00001660| 2f 63 74 73 09 28 20 2d | 2d 20 29 09 09 31 20 73 |/cts.( -|- )..1 s|
|00001670| 65 74 2d 63 6f 6e 74 72 | 6f 6c 20 3b 0a 3a 20 78 |et-contr|ol ;.: x|
|00001680| 6f 6e 2f 78 6f 66 66 09 | 28 20 2d 2d 20 29 09 09 |on/xoff.|( -- )..|
|00001690| 32 20 73 65 74 2d 63 6f | 6e 74 72 6f 6c 20 3b 0a |2 set-co|ntrol ;.|
|000016a0| 0a 3a 20 72 74 73 2d 6f | 6e 09 28 20 2d 2d 20 29 |.: rts-o|n.( -- )|
|000016b0| 09 09 67 65 74 2d 63 2d | 6c 69 6e 65 73 20 32 20 |..get-c-|lines 2 |
|000016c0| 6f 72 20 20 73 65 74 2d | 63 2d 6c 69 6e 65 73 20 |or set-|c-lines |
|000016d0| 3b 0a 3a 20 64 74 72 2d | 6f 6e 09 28 20 2d 2d 20 |;.: dtr-|on.( -- |
|000016e0| 29 20 20 20 20 20 20 20 | 20 20 20 67 65 74 2d 63 |) | get-c|
|000016f0| 2d 6c 69 6e 65 73 20 31 | 20 6f 72 20 20 73 65 74 |-lines 1| or set|
|00001700| 2d 63 2d 6c 69 6e 65 73 | 20 3b 0a 3a 20 72 74 73 |-c-lines| ;.: rts|
|00001710| 2d 6f 66 66 09 28 20 2d | 2d 20 29 09 09 67 65 74 |-off.( -|- )..get|
|00001720| 2d 63 2d 6c 69 6e 65 73 | 20 5b 20 32 20 2d 31 20 |-c-lines| [ 2 -1 |
|00001730| 78 6f 72 20 5d 20 6c 69 | 74 65 72 61 6c 20 61 6e |xor ] li|teral an|
|00001740| 64 20 20 73 65 74 2d 63 | 2d 6c 69 6e 65 73 20 3b |d set-c|-lines ;|
|00001750| 0a 3a 20 64 74 72 2d 6f | 66 66 09 28 20 2d 2d 20 |.: dtr-o|ff.( -- |
|00001760| 29 09 09 67 65 74 2d 63 | 2d 6c 69 6e 65 73 20 5b |)..get-c|-lines [|
|00001770| 20 31 20 2d 31 20 78 6f | 72 20 5d 20 6c 69 74 65 | 1 -1 xo|r ] lite|
|00001780| 72 61 6c 20 61 6e 64 20 | 20 73 65 74 2d 63 2d 6c |ral and | set-c-l|
|00001790| 69 6e 65 73 20 3b 0a 3a | 20 72 69 6e 67 3f 09 09 |ines ;.:| ring?..|
|000017a0| 28 20 2d 2d 20 66 20 29 | 09 67 65 74 2d 6d 2d 6c |( -- f )|.get-m-l|
|000017b0| 69 6e 65 73 20 34 20 61 | 6e 64 20 30 3c 3e 20 3b |ines 4 a|nd 0<> ;|
|000017c0| 0a 3a 20 64 73 72 3f 09 | 09 28 20 2d 2d 20 66 20 |.: dsr?.|.( -- f |
|000017d0| 29 09 67 65 74 2d 6d 2d | 6c 69 6e 65 73 20 32 20 |).get-m-|lines 2 |
|000017e0| 61 6e 64 20 30 3c 3e 20 | 3b 0a 3a 20 63 74 73 3f |and 0<> |;.: cts?|
|000017f0| 09 09 28 20 2d 2d 20 66 | 20 29 09 67 65 74 2d 6d |..( -- f| ).get-m|
|00001800| 2d 6c 69 6e 65 73 20 31 | 20 61 6e 64 20 30 3c 3e |-lines 1| and 0<>|
|00001810| 20 3b 0a 3a 20 73 65 74 | 2d 6c 69 6e 65 09 28 20 | ;.: set|-line.( |
|00001820| 6e 20 2d 2d 20 29 09 3b | 20 69 6d 6d 65 64 69 61 |n -- ).;| immedia|
|00001830| 74 65 0a 0a 3a 20 6d 2d | 65 6d 69 74 09 28 20 63 |te..: m-|emit.( c|
|00001840| 68 61 72 20 2d 2d 20 29 | 09 62 65 67 69 6e 20 70 |har -- )|.begin p|
|00001850| 61 75 73 65 20 28 6d 2d | 65 6d 69 74 3f 29 20 75 |ause (m-|emit?) u|
|00001860| 6e 74 69 6c 20 28 6d 2d | 65 6d 69 74 29 20 64 72 |ntil (m-|emit) dr|
|00001870| 6f 70 20 3b 0a 3a 20 6d | 2d 6b 65 79 3f 09 28 20 |op ;.: m|-key?.( |
|00001880| 2d 2d 20 66 6c 61 67 20 | 29 09 70 61 75 73 65 20 |-- flag |).pause |
|00001890| 28 6d 2d 6b 65 79 3f 29 | 20 30 3c 3e 20 3b 0a 3a |(m-key?)| 0<> ;.:|
|000018a0| 20 6d 2d 6b 65 79 09 09 | 28 20 2d 2d 20 63 68 61 | m-key..|( -- cha|
|000018b0| 72 20 29 09 62 65 67 69 | 6e 20 6d 2d 6b 65 79 3f |r ).begi|n m-key?|
|000018c0| 20 75 6e 74 69 6c 20 28 | 6d 2d 6b 65 79 29 20 3b | until (|m-key) ;|
|000018d0| 0a 3a 20 6d 2d 74 79 70 | 65 09 28 20 61 64 72 20 |.: m-typ|e.( adr |
|000018e0| 6c 65 6e 20 29 0a 09 62 | 6f 75 6e 64 73 20 3f 64 |len )..b|ounds ?d|
|000018f0| 6f 20 69 20 63 40 20 6d | 2d 65 6d 69 74 20 6c 6f |o i c@ m|-emit lo|
|00001900| 6f 70 20 3b 0a 3a 20 6d | 2d 65 78 70 65 63 74 09 |op ;.: m|-expect.|
|00001910| 28 20 61 64 72 20 6c 65 | 6e 20 2d 2d 20 6e 2d 72 |( adr le|n -- n-r|
|00001920| 65 61 64 20 29 0a 09 30 | 20 72 6f 74 20 62 6f 75 |ead )..0| rot bou|
|00001930| 6e 64 73 0a 09 3f 64 6f | 09 6d 2d 6b 65 79 20 64 |nds..?do|.m-key d|
|00001940| 75 70 20 63 61 72 72 65 | 74 20 3d 0a 09 09 69 66 |up carre|t =...if|
|00001950| 20 64 72 6f 70 20 6c 65 | 61 76 65 20 65 6c 73 65 | drop le|ave else|
|00001960| 20 69 20 63 21 20 63 68 | 61 72 2b 20 74 68 65 6e | i c! ch|ar+ then|
|00001970| 0a 09 6c 6f 6f 70 20 3b | 0a 3a 20 6d 2d 6f 70 65 |..loop ;|.: m-ope|
|00001980| 6e 09 5c 20 28 20 6e 20 | 2d 2d 20 66 6c 61 67 20 |n.\ ( n |-- flag |
|00001990| 29 20 66 6c 61 67 3a 74 | 72 75 65 20 73 69 67 6e |) flag:t|rue sign|
|000019a0| 61 6c 73 20 61 6e 20 65 | 72 72 6f 72 0a 09 64 75 |als an e|rror..du|
|000019b0| 70 20 3e 63 68 61 6e 6e | 65 6c 20 40 20 69 66 20 |p >chann|el @ if |
|000019c0| 64 72 6f 70 20 74 72 75 | 65 20 65 78 69 74 20 74 |drop tru|e exit t|
|000019d0| 68 65 6e 09 09 09 28 20 | 6e 20 29 0a 09 64 75 70 |hen...( |n )..dup|
|000019e0| 20 75 73 65 2d 63 68 61 | 6e 6e 65 6c 20 64 75 70 | use-cha|nnel dup|
|000019f0| 20 32 2f 20 3e 64 72 69 | 76 65 72 20 40 20 73 77 | 2/ >dri|ver @ sw|
|00001a00| 61 70 20 3e 63 68 61 6e | 6e 65 6c 20 21 09 28 20 |ap >chan|nel !.( |
|00001a10| 6e 20 29 0a 09 69 6e 69 | 74 2d 64 72 69 76 65 72 |n )..ini|t-driver|
|00001a20| 20 64 75 70 0a 09 69 66 | 20 63 68 61 6e 6e 65 6c | dup..if| channel|
|00001a30| 23 20 6f 66 66 20 65 6c | 73 65 20 64 74 72 2d 6f |# off el|se dtr-o|
|00001a40| 6e 20 72 74 73 2d 6f 6e | 20 74 68 65 6e 20 3b 0a |n rts-on| then ;.|
|00001a50| 0a 3a 20 6d 2d 63 6c 6f | 73 65 09 28 20 2d 2d 20 |.: m-clo|se.( -- |
|00001a60| 29 0a 09 63 68 61 6e 6e | 65 6c 23 20 40 20 3e 63 |)..chann|el# @ >c|
|00001a70| 68 61 6e 6e 65 6c 20 40 | 20 30 3d 20 3f 65 78 69 |hannel @| 0= ?exi|
|00001a80| 74 0a 09 64 74 72 2d 6f | 66 66 20 72 74 73 2d 6f |t..dtr-o|ff rts-o|
|00001a90| 66 66 20 63 6c 6f 73 65 | 2d 64 72 69 76 65 72 0a |ff close|-driver.|
|00001aa0| 09 63 68 61 6e 6e 65 6c | 23 20 40 20 3e 63 68 61 |.channel|# @ >cha|
|00001ab0| 6e 6e 65 6c 20 6f 66 66 | 20 20 63 68 61 6e 6e 65 |nnel off| channe|
|00001ac0| 6c 23 20 6f 66 66 20 3b | 0a 3a 20 63 6c 6f 73 65 |l# off ;|.: close|
|00001ad0| 2d 64 72 69 76 65 72 73 | 09 28 20 2d 2d 20 29 0a |-drivers|.( -- ).|
|00001ae0| 09 6e 65 78 74 2d 64 72 | 69 76 65 72 20 40 20 32 |.next-dr|iver @ 2|
|00001af0| 2a 20 32 20 3f 64 6f 20 | 69 20 75 73 65 2d 63 68 |* 2 ?do |i use-ch|
|00001b00| 61 6e 6e 65 6c 20 6d 2d | 63 6c 6f 73 65 20 6c 6f |annel m-|close lo|
|00001b10| 6f 70 20 3b 09 0a 5c 20 | 74 6f 6f 6c 73 20 66 6f |op ;..\ |tools fo|
|00001b20| 72 20 53 65 72 69 61 6c | 44 65 76 20 66 6f 6c 6c |r Serial|Dev foll|
|00001b30| 6f 77 69 6e 67 0a 3a 20 | 28 2e 73 65 72 69 61 6c |owing.: |(.serial|
|00001b40| 69 6e 66 6f 09 28 20 6e | 20 2d 2d 20 29 0a 09 3f |info.( n| -- )..?|
|00001b50| 64 75 70 20 30 3d 20 3f | 65 78 69 74 0a 09 62 61 |dup 0= ?|exit..ba|
|00001b60| 73 65 20 40 20 73 77 61 | 70 20 64 65 63 69 6d 61 |se @ swa|p decima|
|00001b70| 6c 0a 09 3f 3f 63 72 20 | 63 72 20 2e 22 20 44 72 |l..??cr |cr ." Dr|
|00001b80| 69 76 65 72 3a 20 22 20 | 64 75 70 20 68 23 20 38 |iver: " |dup h# 8|
|00001b90| 30 20 2b 20 66 73 74 72 | 20 22 2e 20 64 75 70 0a |0 + fstr| ". dup.|
|00001ba0| 09 68 23 20 63 30 20 2b | 20 20 40 20 2e 22 20 2c |.h# c0 +| @ ." ,|
|00001bb0| 20 56 2e 20 22 20 64 75 | 70 20 68 23 20 31 30 20 | V. " du|p h# 10 |
|00001bc0| 72 73 68 69 66 74 20 2e | 20 68 23 20 66 66 66 66 |rshift .| h# ffff|
|00001bd0| 20 61 6e 64 20 2e 0a 09 | 63 72 20 2e 22 20 4d 61 | and ...|cr ." Ma|
|00001be0| 6e 75 66 61 63 74 75 72 | 65 72 3a 20 22 20 64 75 |nufactur|er: " du|
|00001bf0| 70 20 68 23 20 61 30 20 | 2b 20 66 73 74 72 20 22 |p h# a0 |+ fstr "|
|00001c00| 2e 0a 09 63 72 20 2e 22 | 20 53 70 65 65 64 73 3a |...cr ."| Speeds:|
|00001c10| 20 22 20 3f 3f 63 72 20 | 20 68 23 20 31 30 30 20 | " ??cr | h# 100 |
|00001c20| 2b 0a 09 62 65 67 69 6e | 20 64 75 70 20 40 20 30 |+..begin| dup @ 0|
|00001c30| 3c 3e 20 77 68 69 6c 65 | 20 64 75 70 20 40 20 38 |<> while| dup @ 8|
|00001c40| 20 75 2e 72 20 30 20 2e | 74 61 62 20 34 20 2b 20 | u.r 0 .|tab 4 + |
|00001c50| 72 65 70 65 61 74 20 64 | 72 6f 70 0a 09 62 61 73 |repeat d|rop..bas|
|00001c60| 65 20 21 20 3b 0a 0a 6f | 6e 6c 79 20 66 6f 72 74 |e ! ;..o|nly fort|
|00001c70| 68 20 61 6c 73 6f 20 64 | 65 66 69 6e 69 74 69 6f |h also d|efinitio|
|00001c80| 6e 73 20 6d 6f 64 65 6d | 20 61 6c 73 6f 0a 3a 20 |ns modem| also.: |
|00001c90| 64 72 69 76 65 72 20 09 | 5c 20 6e 61 6d 65 20 28 |driver .|\ name (|
|00001ca0| 20 2d 2d 20 29 0a 09 62 | 6c 77 6f 72 64 20 6c 6f | -- )..b|lword lo|
|00001cb0| 61 64 2d 64 72 69 76 65 | 72 20 3b 0a 3a 20 2e 63 |ad-drive|r ;.: .c|
|00001cc0| 68 61 6e 6e 65 6c 73 09 | 28 20 2d 2d 20 29 0a 09 |hannels.|( -- )..|
|00001cd0| 3f 3f 63 72 20 6e 65 78 | 74 2d 64 72 69 76 65 72 |??cr nex|t-driver|
|00001ce0| 20 40 20 32 2a 20 32 0a | 09 3f 64 6f 20 69 20 2e | @ 2* 2.|.?do i .|
|00001cf0| 64 20 69 20 3e 63 68 61 | 6e 6e 65 6c 20 40 20 69 |d i >cha|nnel @ i|
|00001d00| 66 20 2e 22 20 75 73 65 | 64 22 20 65 6c 73 65 20 |f ." use|d" else |
|00001d10| 2e 22 20 66 72 65 65 22 | 20 74 68 65 6e 20 2e 22 |." free"| then ."|
|00001d20| 20 2c 20 20 20 22 0a 09 | 6c 6f 6f 70 20 3b 0a 3a | , "..|loop ;.:|
|00001d30| 20 2e 64 72 69 76 65 72 | 73 0a 09 6e 65 78 74 2d | .driver|s..next-|
|00001d40| 64 72 69 76 65 72 20 40 | 20 31 20 3f 64 6f 20 69 |driver @| 1 ?do i|
|00001d50| 20 3e 64 72 69 76 65 72 | 20 40 20 28 2e 73 65 72 | >driver| @ (.ser|
|00001d60| 69 61 6c 69 6e 66 6f 20 | 6c 6f 6f 70 20 3b 0a 3a |ialinfo |loop ;.:|
|00001d70| 20 28 63 6f 6c 64 2d 68 | 6f 6f 6b 09 28 63 6f 6c | (cold-h|ook.(col|
|00001d80| 64 2d 68 6f 6f 6b 20 69 | 6e 69 74 2d 64 72 69 76 |d-hook i|nit-driv|
|00001d90| 65 72 73 20 3b 20 09 27 | 20 28 63 6f 6c 64 2d 68 |ers ; .'| (cold-h|
|00001da0| 6f 6f 6b 20 69 73 20 63 | 6f 6c 64 2d 68 6f 6f 6b |ook is c|old-hook|
|00001db0| 0a 3a 20 28 62 79 65 09 | 09 63 6c 6f 73 65 2d 64 |.: (bye.|.close-d|
|00001dc0| 72 69 76 65 72 73 20 28 | 62 79 65 20 3b 20 20 20 |rivers (|bye ; |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 27 20 28 62 79 65 20 | | ' (bye |
|00001de0| 69 73 20 62 79 65 0a 00 | 00 00 00 00 00 00 00 00 |is bye..|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00001e10| 6f 73 2e 53 65 72 69 61 | 6c 44 65 76 2e 00 00 00 |os.Seria|lDev....|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 20 20 20 37 | 30 30 00 00 20 20 20 20 |.... 7|00.. |
|00001e70| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00001e80| 20 20 20 20 20 20 30 00 | 20 36 31 35 35 31 30 34 | 0.| 6155104|
|00001e90| 33 31 31 00 20 31 36 36 | 36 32 00 20 35 00 00 00 |311. 166|62. 5...|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00001f10| 36 35 30 36 00 33 33 31 | 30 37 35 35 34 33 34 36 |6506.331|07554346|
|00001f20| 00 20 20 20 20 20 20 20 | 20 20 20 30 00 34 36 20 |. | 0.46 |
|00001f30| 64 39 31 65 64 38 65 36 | 00 00 00 00 00 00 00 00 |d91ed8e6|........|
|00001f40| 00 00 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.....A..|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00002010| 6f 73 2e 53 65 72 69 61 | 6c 44 65 76 2e 49 6e 74 |os.Seria|lDev.Int|
|00002020| 65 72 6e 61 6c 2e 00 00 | 00 00 00 00 00 00 00 00 |ernal...|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 20 20 20 37 | 30 30 00 00 20 20 20 20 |.... 7|00.. |
|00002070| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00002080| 20 20 20 20 20 20 30 00 | 20 36 31 35 35 31 30 34 | 0.| 6155104|
|00002090| 36 30 36 00 20 32 30 33 | 34 34 00 20 35 00 00 00 |606. 203|44. 5...|
|000020a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00002110| 36 35 30 36 00 33 33 31 | 30 37 36 32 31 32 31 35 |6506.331|07621215|
|00002120| 00 20 20 20 20 20 20 20 | 20 20 20 30 00 34 36 20 |. | 0.46 |
|00002130| 64 39 31 66 32 32 38 64 | 00 00 00 00 00 00 00 00 |d91f228d|........|
|00002140| 00 00 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.....A..|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00002210| 6f 73 2e 53 65 72 69 61 | 6c 44 65 76 2e 49 6e 74 |os.Seria|lDev.Int|
|00002220| 65 72 6e 61 6c 2e 44 72 | 69 76 65 72 00 00 00 00 |ernal.Dr|iver....|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00002270| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00002280| 20 20 20 33 35 31 30 00 | 20 35 36 32 34 33 36 33 | 3510.| 5624363|
|00002290| 31 37 37 00 20 32 32 34 | 30 37 00 20 30 00 00 00 |177. 224|07. 0...|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00002310| 36 35 30 35 00 32 30 36 | 34 35 36 37 31 37 33 34 |6505.206|45671734|
|00002320| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 35 20 |. | 3.45 |
|00002330| 38 36 39 37 37 33 64 63 | 00 20 20 20 20 20 20 20 |869773dc|. |
|00002340| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 00 40 2d e9 14 00 50 e3 | 00 f1 8f 30 00 80 fd e8 |.@-...P.|...0....|
|00002410| 5a 00 00 ea 5f 00 00 ea | 63 00 00 ea 6c 00 00 ea |Z..._...|c...l...|
|00002420| 76 00 00 ea 80 00 00 ea | 8a 00 00 ea 92 00 00 ea |v.......|........|
|00002430| 9a 00 00 ea b7 00 00 ea | c1 00 00 ea c2 00 00 ea |........|........|
|00002440| c5 00 00 ea cb 00 00 ea | 0a 01 00 ea 71 01 00 ea |........|....q...|
|00002450| 79 01 00 ea 9d 01 00 ea | b9 01 00 ea 00 80 fd e8 |y.......|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 49 6e 74 65 72 6e 61 6c | 20 28 41 63 6f 72 6e 20 |Internal| (Acorn |
|00002490| 77 69 72 69 6e 67 29 00 | 00 00 00 00 00 00 00 00 |wiring).|........|
|000024a0| 54 68 65 20 53 65 72 69 | 61 6c 20 50 6f 72 74 00 |The Seri|al Port.|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 0c 00 01 00 c2 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 32 00 00 00 4b 00 00 00 | 6e 00 00 00 86 00 00 00 |2...K...|n.......|
|00002510| 96 00 00 00 2c 01 00 00 | 58 02 00 00 b0 04 00 00 |....,...|X.......|
|00002520| 08 07 00 00 60 09 00 00 | 10 0e 00 00 c0 12 00 00 |....`...|........|
|00002530| 20 1c 00 00 80 25 00 00 | 00 4b 00 00 00 96 00 00 | ....%..|.K......|
|00002540| 00 e1 00 00 00 c2 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 03 00 a0 e3 02 10 a0 e1 | 57 00 02 ef 00 00 a0 33 |........|W......3|
|00002590| 00 00 e0 23 00 80 fd e8 | 04 00 a0 e3 57 00 02 ef |...#....|....W...|
|000025a0| 01 00 a0 31 00 00 e0 23 | 00 80 fd e8 14 00 02 ef |...1...#|........|
|000025b0| 00 03 2d e9 03 80 a0 e1 | 14 90 a0 e3 0a 11 a0 e3 |..-.....|........|
|000025c0| 34 00 02 ef 03 00 48 e0 | 00 03 bd e8 13 00 02 ef |4.....H.|........|
|000025d0| 00 80 fd e8 14 00 02 ef | 00 03 2d e9 00 80 b0 e3 |........|..-.....|
|000025e0| 03 80 a0 e1 15 90 a0 e3 | 06 11 a0 e3 34 00 02 ef |........|....4...|
|000025f0| 03 00 48 e0 00 03 bd e8 | 13 00 02 ef 00 80 fd e8 |..H.....|........|
|00002600| 14 00 02 ef 00 02 2d e9 | 02 f2 3f e3 16 90 a0 e3 |......-.|..?.....|
|00002610| 02 10 a0 e3 34 00 02 ef | 01 00 a0 e1 02 04 80 e1 |....4...|........|
|00002620| 00 02 bd e8 13 00 02 ef | 00 80 fd e8 14 00 02 ef |........|........|
|00002630| 00 02 2d e9 00 f0 3f e3 | 16 90 a0 e3 01 10 a0 e3 |..-...?.|........|
|00002640| 34 00 02 ef 01 00 a0 e1 | 02 04 80 e1 00 02 bd e8 |4.......|........|
|00002650| 13 00 02 ef 00 80 fd e8 | 14 00 02 ef 00 02 2d e9 |........|......-.|
|00002660| 01 f2 3f e3 16 90 a0 e3 | 02 10 a0 e3 34 00 02 ef |..?.....|....4...|
|00002670| 00 02 bd e8 13 00 02 ef | 00 80 fd e8 14 00 02 ef |........|........|
|00002680| 00 02 2d e9 01 f2 3f e3 | 16 90 a0 e3 01 10 a0 e3 |..-...?.|........|
|00002690| 34 00 02 ef 00 02 bd e8 | 13 00 02 ef 00 80 fd e8 |4.......|........|
|000026a0| 04 00 2d e9 00 00 52 e3 | 0c 00 00 ba 01 00 12 e3 |..-...R.|........|
|000026b0| 08 10 a0 03 00 10 a0 13 | 08 20 e0 e3 00 00 a0 e3 |........|. ......|
|000026c0| 57 00 02 ef 00 20 9d e5 | 02 00 12 e3 02 10 a0 13 |W.... ..|........|
|000026d0| 00 10 a0 03 38 10 8f e5 | 02 00 a0 e3 06 00 02 ef |....8...|........|
|000026e0| 00 00 a0 e3 00 10 a0 e3 | 00 20 e0 e3 57 00 02 ef |........|. ..W...|
|000026f0| 08 00 11 e3 01 30 a0 03 | 00 30 a0 13 10 10 9f e5 |.....0..|.0......|
|00002700| 00 00 51 e3 02 30 83 13 | 03 00 a0 e1 04 00 bd e8 |..Q..0..|........|
|00002710| 00 80 fd e8 00 00 00 00 | 00 00 a0 e3 00 10 a0 e3 |........|........|
|00002720| 00 20 e0 e3 57 00 02 ef | 00 00 a0 e3 02 00 80 e3 |. ..W...|........|
|00002730| 02 07 11 e3 01 00 80 03 | 01 06 11 e3 08 00 80 13 |........|........|
|00002740| 00 80 fd e8 00 00 a0 e3 | 00 80 fd e8 02 00 a0 e3 |........|........|
|00002750| 02 10 a0 e1 57 00 02 ef | 00 80 fd e8 98 00 a0 e3 |....W...|........|
|00002760| 01 10 a0 e3 06 00 00 ef | 00 00 e0 23 02 00 a0 31 |........|...#...1|
|00002770| 00 80 fd e8 e0 0f 01 03 | 00 00 52 e3 3b 00 00 ba |........|..R.;...|
|00002780| 1f 3e 8f e2 08 10 93 e4 | 00 00 51 e3 37 00 00 0a |.>......|..Q.7...|
|00002790| 02 00 51 e1 00 00 00 0a | f9 ff ff ea 6c 22 8f e5 |..Q.....|....l"..|
|000027a0| 98 03 9f e5 04 10 13 e5 | 00 00 50 e3 2d 00 00 0a |........|..P.-...|
|000027b0| 01 00 50 e3 07 00 00 0a | 02 00 50 e3 00 00 00 0a |..P.....|..P.....|
|000027c0| 2a 00 00 ea ff 00 11 e3 | 26 00 00 1a 21 18 a0 e1 |*.......|&...!...|
|000027d0| 13 10 61 e2 23 00 00 ea | 16 00 02 ef 70 00 1f e5 |..a.#...|....p...|
|000027e0| 0c 20 d0 e5 80 20 82 e3 | 0c 20 c0 e5 06 20 a0 e3 |. ... ..|. ... ..|
|000027f0| 00 20 c0 e5 00 20 a0 e3 | 04 20 c0 e5 0c 20 d0 e5 |. ... ..|. ... ..|
|00002800| 80 20 c2 e3 0c 20 c0 e5 | 00 f0 3f e3 00 00 a0 e1 |. ... ..|..?.....|
|00002810| 02 00 2d e9 06 00 a0 e3 | 08 10 a0 e3 57 00 02 ef |..-.....|....W...|
|00002820| 02 00 bd e8 ff 00 11 e3 | 0e 00 00 1a 16 00 02 ef |........|........|
|00002830| c4 00 1f e5 0c 20 d0 e5 | 80 20 82 e3 0c 20 c0 e5 |..... ..|. ... ..|
|00002840| 21 18 a0 e1 00 10 c0 e5 | 21 14 a0 e1 04 10 c0 e5 |!.......|!.......|
|00002850| 0c 20 d0 e5 80 20 c2 e3 | 0c 20 c0 e5 00 f0 3f e3 |. ... ..|. ....?.|
|00002860| 00 00 a0 e1 01 00 00 ea | 06 00 a0 e3 57 00 02 ef |........|....W...|
|00002870| 98 01 9f e5 00 80 fd e8 | 00 00 52 e3 3b 00 00 ba |........|..R.;...|
|00002880| f0 30 8f e2 08 10 93 e4 | 00 00 51 e3 37 00 00 0a |.0......|..Q.7...|
|00002890| 02 00 51 e1 00 00 00 0a | f9 ff ff ea 70 21 8f e5 |..Q.....|....p!..|
|000028a0| 98 02 9f e5 04 10 13 e5 | 00 00 50 e3 2d 00 00 0a |........|..P.-...|
|000028b0| 01 00 50 e3 07 00 00 0a | 02 00 50 e3 00 00 00 0a |..P.....|..P.....|
|000028c0| 2a 00 00 ea ff 00 11 e3 | 26 00 00 1a 21 18 a0 e1 |*.......|&...!...|
|000028d0| 13 10 61 e2 23 00 00 ea | 16 00 02 ef 70 01 1f e5 |..a.#...|....p...|
|000028e0| 0c 20 d0 e5 80 20 82 e3 | 0c 20 c0 e5 06 20 a0 e3 |. ... ..|. ... ..|
|000028f0| 00 20 c0 e5 00 20 a0 e3 | 04 20 c0 e5 0c 20 d0 e5 |. ... ..|. ... ..|
|00002900| 80 20 c2 e3 0c 20 c0 e5 | 00 f0 3f e3 00 00 a0 e1 |. ... ..|..?.....|
|00002910| 02 00 2d e9 06 00 a0 e3 | 08 10 a0 e3 57 00 02 ef |..-.....|....W...|
|00002920| 02 00 bd e8 ff 00 11 e3 | 0e 00 00 1a 16 00 02 ef |........|........|
|00002930| c4 01 1f e5 0c 20 d0 e5 | 80 20 82 e3 0c 20 c0 e5 |..... ..|. ... ..|
|00002940| 21 18 a0 e1 00 10 c0 e5 | 21 14 a0 e1 04 10 c0 e5 |!.......|!.......|
|00002950| 0c 20 d0 e5 80 20 c2 e3 | 0c 20 c0 e5 00 f0 3f e3 |. ... ..|. ....?.|
|00002960| 00 00 a0 e1 01 00 00 ea | 05 00 a0 e3 57 00 02 ef |........|....W...|
|00002970| 9c 00 9f e5 00 80 fd e8 | 32 00 00 00 09 00 00 00 |........|2.......|
|00002980| 4b 00 00 00 01 00 00 00 | 6e 00 00 00 0a 00 00 00 |K.......|n.......|
|00002990| 86 00 00 00 0b 00 00 00 | 96 00 00 00 02 00 00 00 |........|........|
|000029a0| 2c 01 00 00 03 00 00 00 | 58 02 00 00 0c 00 00 00 |,.......|X.......|
|000029b0| b0 04 00 00 04 00 00 00 | 08 07 00 00 0d 00 00 00 |........|........|
|000029c0| 60 09 00 00 05 00 00 00 | 10 0e 00 00 0e 00 00 00 |`.......|........|
|000029d0| c0 12 00 00 06 00 00 00 | 20 1c 00 00 0f 00 00 00 |........| .......|
|000029e0| 80 25 00 00 07 00 00 00 | 00 4b 00 00 08 00 00 00 |.%......|.K......|
|000029f0| 00 96 00 00 00 00 03 00 | 00 e1 00 00 00 00 02 00 |........|........|
|00002a00| 00 c2 01 00 00 00 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a10| 00 4b 00 00 00 4b 00 00 | 00 00 52 e3 03 00 00 ba |.K...K..|..R.....|
|00002a20| 01 00 a0 e3 02 10 a0 e1 | 08 10 8f e5 57 00 02 ef |........|....W...|
|00002a30| 00 00 9f e5 00 80 fd e8 | 00 00 00 00 04 00 2d e9 |........|......-.|
|00002a40| cb 00 a0 e3 64 10 a0 e3 | 00 20 a0 e3 06 00 02 ef |....d...|. ......|
|00002a50| 00 00 a0 e3 00 10 a0 e3 | 64 20 9f e5 57 00 02 ef |........|d ..W...|
|00002a60| 00 00 a0 e3 01 10 a0 e3 | 54 20 9f e5 57 00 02 ef |........|T ..W...|
|00002a70| 00 00 a0 e3 00 10 a0 e3 | 44 20 9f e5 57 00 02 ef |........|D ..W...|
|00002a80| 08 00 bd e8 00 00 53 e3 | 3c 00 9f b5 00 80 fd b8 |......S.|<.......|
|00002a90| 04 10 a0 03 01 00 53 e3 | 00 10 a0 03 02 00 53 e3 |......S.|......S.|
|00002aa0| 05 10 a0 03 03 00 53 e3 | 01 10 a0 03 00 00 a0 e3 |......S.|........|
|00002ab0| 05 20 e0 e3 57 00 02 ef | 0c 00 9f e5 08 30 8f e5 |. ..W...|.....0..|
|00002ac0| 00 80 fd e8 fe ff fd ff | ee ff fd ff 00 00 00 00 |........|........|
|00002ad0| fe 01 2d e9 01 80 a0 e1 | 02 00 a0 e3 58 00 02 ef |..-.....|....X...|
|00002ae0| 08 00 00 6a 00 00 51 e3 | 06 00 00 0a 03 00 a0 e3 |...j..Q.|........|
|00002af0| 58 00 02 ef 0f 0a 11 e3 | 01 00 a0 03 02 00 a0 13 |X.......|........|
|00002b00| 38 00 8f e5 04 00 00 ea | 00 00 a0 e3 24 01 0f e5 |8.......|....$...|
|00002b10| 24 01 0f e5 e0 05 0f e5 | 20 00 8f e5 01 00 78 e3 |$.......| .....x.|
|00002b20| 03 00 00 0a 03 20 a0 e3 | 04 e0 8f e2 00 40 2d e9 |..... ..|.....@-.|
|00002b30| da fe ff eb 00 00 b0 e3 | fe 01 bd e8 00 80 fd e8 |........|........|
|00002b40| 00 00 00 00 00 80 fd e8 | 00 00 00 00 00 00 00 00 |........|........|
|00002b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00002c10| 6f 73 2e 53 65 72 69 61 | 6c 44 65 76 2e 49 6e 74 |os.Seria|lDev.Int|
|00002c20| 65 72 6e 61 6c 50 43 2e | 00 00 00 00 00 00 00 00 |ernalPC.|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 20 20 20 37 | 30 30 00 00 20 20 20 20 |.... 7|00.. |
|00002c70| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00002c80| 20 20 20 20 20 20 30 00 | 20 36 31 35 35 31 30 34 | 0.| 6155104|
|00002c90| 33 35 31 00 20 32 30 36 | 37 31 00 20 35 00 00 00 |351. 206|71. 5...|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d00| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00002d10| 36 35 30 36 00 33 33 31 | 30 37 35 36 32 35 37 37 |6506.331|07562577|
|00002d20| 00 20 20 20 20 20 20 20 | 20 20 20 30 00 34 36 20 |. | 0.46 |
|00002d30| 64 39 31 65 65 35 37 66 | 00 00 00 00 00 00 00 00 |d91ee57f|........|
|00002d40| 00 00 00 00 00 41 00 00 | 00 00 00 00 00 00 00 00 |.....A..|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 21 46 6f 72 74 68 6d 61 | 63 73 2e 72 69 73 63 5f |!Forthma|cs.risc_|
|00002e10| 6f 73 2e 53 65 72 69 61 | 6c 44 65 76 2e 49 6e 74 |os.Seria|lDev.Int|
|00002e20| 65 72 6e 61 6c 50 43 2e | 44 72 69 76 65 72 00 00 |ernalPC.|Driver..|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00002e70| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00002e80| 20 20 20 33 35 34 34 00 | 20 35 36 32 34 33 36 33 | 3544.| 5624363|
|00002e90| 31 37 37 00 20 32 32 36 | 34 30 00 20 30 00 00 00 |177. 226|40. 0...|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00002f10| 36 35 30 35 00 32 30 36 | 34 35 36 37 31 37 35 32 |6505.206|45671752|
|00002f20| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 35 20 |. | 3.45 |
|00002f30| 38 36 39 37 37 33 65 61 | 00 20 20 20 20 20 20 20 |869773ea|. |
|00002f40| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 40 2d e9 14 00 50 e3 | 00 f1 8f 30 00 80 fd e8 |.@-...P.|...0....|
|00003010| 5a 00 00 ea 5f 00 00 ea | 63 00 00 ea 6c 00 00 ea |Z..._...|c...l...|
|00003020| 76 00 00 ea 80 00 00 ea | 8a 00 00 ea 92 00 00 ea |v.......|........|
|00003030| 9a 00 00 ea b7 00 00 ea | c4 00 00 ea c5 00 00 ea |........|........|
|00003040| c8 00 00 ea ce 00 00 ea | 0d 01 00 ea 74 01 00 ea |........|....t...|
|00003050| 7c 01 00 ea a0 01 00 ea | c0 01 00 ea 00 80 fd e8 ||.......|........|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 49 6e 74 65 72 6e 61 6c | 20 28 50 43 20 77 69 72 |Internal| (PC wir|
|00003090| 69 6e 67 29 00 67 29 00 | 00 00 00 00 00 00 00 00 |ing).g).|........|
|000030a0| 54 68 65 20 53 65 72 69 | 61 6c 20 50 6f 72 74 00 |The Seri|al Port.|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 0c 00 01 00 c2 01 00 00 | 00 03 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 32 00 00 00 4b 00 00 00 | 6e 00 00 00 86 00 00 00 |2...K...|n.......|
|00003110| 96 00 00 00 2c 01 00 00 | 58 02 00 00 b0 04 00 00 |....,...|X.......|
|00003120| 08 07 00 00 60 09 00 00 | 10 0e 00 00 c0 12 00 00 |....`...|........|
|00003130| 20 1c 00 00 80 25 00 00 | 00 4b 00 00 00 96 00 00 | ....%..|.K......|
|00003140| 00 e1 00 00 00 c2 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 03 00 a0 e3 02 10 a0 e1 | 57 00 02 ef 00 00 a0 33 |........|W......3|
|00003190| 00 00 e0 23 00 80 fd e8 | 04 00 a0 e3 57 00 02 ef |...#....|....W...|
|000031a0| 01 00 a0 31 00 00 e0 23 | 00 80 fd e8 14 00 02 ef |...1...#|........|
|000031b0| 00 03 2d e9 03 80 a0 e1 | 14 90 a0 e3 0a 11 a0 e3 |..-.....|........|
|000031c0| 34 00 02 ef 03 00 48 e0 | 00 03 bd e8 13 00 02 ef |4.....H.|........|
|000031d0| 00 80 fd e8 14 00 02 ef | 00 03 2d e9 00 80 b0 e3 |........|..-.....|
|000031e0| 03 80 a0 e1 15 90 a0 e3 | 06 11 a0 e3 34 00 02 ef |........|....4...|
|000031f0| 03 00 48 e0 00 03 bd e8 | 13 00 02 ef 00 80 fd e8 |..H.....|........|
|00003200| 14 00 02 ef 00 02 2d e9 | 02 f2 3f e3 16 90 a0 e3 |......-.|..?.....|
|00003210| 02 10 a0 e3 34 00 02 ef | 01 00 a0 e1 02 04 80 e1 |....4...|........|
|00003220| 00 02 bd e8 13 00 02 ef | 00 80 fd e8 14 00 02 ef |........|........|
|00003230| 00 02 2d e9 00 f0 3f e3 | 16 90 a0 e3 01 10 a0 e3 |..-...?.|........|
|00003240| 34 00 02 ef 01 00 a0 e1 | 02 04 80 e1 00 02 bd e8 |4.......|........|
|00003250| 13 00 02 ef 00 80 fd e8 | 14 00 02 ef 00 02 2d e9 |........|......-.|
|00003260| 01 f2 3f e3 16 90 a0 e3 | 02 10 a0 e3 34 00 02 ef |..?.....|....4...|
|00003270| 00 02 bd e8 13 00 02 ef | 00 80 fd e8 14 00 02 ef |........|........|
|00003280| 00 02 2d e9 01 f2 3f e3 | 16 90 a0 e3 01 10 a0 e3 |..-...?.|........|
|00003290| 34 00 02 ef 00 02 bd e8 | 13 00 02 ef 00 80 fd e8 |4.......|........|
|000032a0| 04 00 2d e9 00 00 52 e3 | 0c 00 00 ba 01 00 12 e3 |..-...R.|........|
|000032b0| 08 10 a0 03 00 10 a0 13 | 08 20 e0 e3 00 00 a0 e3 |........|. ......|
|000032c0| 57 00 02 ef 00 20 9d e5 | 02 00 12 e3 02 10 a0 13 |W.... ..|........|
|000032d0| 00 10 a0 03 38 10 8f e5 | 02 00 a0 e3 06 00 02 ef |....8...|........|
|000032e0| 00 00 a0 e3 00 10 a0 e3 | 00 20 e0 e3 57 00 02 ef |........|. ..W...|
|000032f0| 08 00 11 e3 01 30 a0 03 | 00 30 a0 13 10 10 9f e5 |.....0..|.0......|
|00003300| 00 00 51 e3 02 30 83 13 | 03 00 a0 e1 04 00 bd e8 |..Q..0..|........|
|00003310| 00 80 fd e8 00 00 00 00 | 00 00 a0 e3 00 10 a0 e3 |........|........|
|00003320| 00 20 e0 e3 57 00 02 ef | 00 00 a0 e3 01 07 11 e3 |. ..W...|........|
|00003330| 08 00 80 03 02 07 11 e3 | 02 00 80 03 01 06 11 e3 |........|........|
|00003340| 04 00 80 13 02 06 11 e3 | 01 00 80 03 00 80 fd e8 |........|........|
|00003350| 00 00 a0 e3 00 80 fd e8 | 02 00 a0 e3 02 10 a0 e1 |........|........|
|00003360| 57 00 02 ef 00 80 fd e8 | 98 00 a0 e3 01 10 a0 e3 |W.......|........|
|00003370| 06 00 00 ef 00 00 e0 23 | 02 00 a0 31 00 80 fd e8 |.......#|...1....|
|00003380| e0 0f 01 03 00 00 52 e3 | 3b 00 00 ba 1f 3e 8f e2 |......R.|;....>..|
|00003390| 08 10 93 e4 00 00 51 e3 | 37 00 00 0a 02 00 51 e1 |......Q.|7.....Q.|
|000033a0| 00 00 00 0a f9 ff ff ea | 6c 22 8f e5 a8 03 9f e5 |........|l"......|
|000033b0| 04 10 13 e5 00 00 50 e3 | 2d 00 00 0a 01 00 50 e3 |......P.|-.....P.|
|000033c0| 07 00 00 0a 02 00 50 e3 | 00 00 00 0a 2a 00 00 ea |......P.|....*...|
|000033d0| ff 00 11 e3 26 00 00 1a | 21 18 a0 e1 13 10 61 e2 |....&...|!.....a.|
|000033e0| 23 00 00 ea 16 00 02 ef | 70 00 1f e5 0c 20 d0 e5 |#.......|p.... ..|
|000033f0| 80 20 82 e3 0c 20 c0 e5 | 06 20 a0 e3 00 20 c0 e5 |. ... ..|. ... ..|
|00003400| 00 20 a0 e3 04 20 c0 e5 | 0c 20 d0 e5 80 20 c2 e3 |. ... ..|. ... ..|
|00003410| 0c 20 c0 e5 00 f0 3f e3 | 00 00 a0 e1 02 00 2d e9 |. ....?.|......-.|
|00003420| 06 00 a0 e3 08 10 a0 e3 | 57 00 02 ef 02 00 bd e8 |........|W.......|
|00003430| ff 00 11 e3 0e 00 00 1a | 16 00 02 ef c4 00 1f e5 |........|........|
|00003440| 0c 20 d0 e5 80 20 82 e3 | 0c 20 c0 e5 21 18 a0 e1 |. ... ..|. ..!...|
|00003450| 00 10 c0 e5 21 14 a0 e1 | 04 10 c0 e5 0c 20 d0 e5 |....!...|..... ..|
|00003460| 80 20 c2 e3 0c 20 c0 e5 | 00 f0 3f e3 00 00 a0 e1 |. ... ..|..?.....|
|00003470| 01 00 00 ea 06 00 a0 e3 | 57 00 02 ef 98 01 9f e5 |........|W.......|
|00003480| 00 80 fd e8 00 00 52 e3 | 3b 00 00 ba f0 30 8f e2 |......R.|;....0..|
|00003490| 08 10 93 e4 00 00 51 e3 | 37 00 00 0a 02 00 51 e1 |......Q.|7.....Q.|
|000034a0| 00 00 00 0a f9 ff ff ea | 70 21 8f e5 a8 02 9f e5 |........|p!......|
|000034b0| 04 10 13 e5 00 00 50 e3 | 2d 00 00 0a 01 00 50 e3 |......P.|-.....P.|
|000034c0| 07 00 00 0a 02 00 50 e3 | 00 00 00 0a 2a 00 00 ea |......P.|....*...|
|000034d0| ff 00 11 e3 26 00 00 1a | 21 18 a0 e1 13 10 61 e2 |....&...|!.....a.|
|000034e0| 23 00 00 ea 16 00 02 ef | 70 01 1f e5 0c 20 d0 e5 |#.......|p.... ..|
|000034f0| 80 20 82 e3 0c 20 c0 e5 | 06 20 a0 e3 00 20 c0 e5 |. ... ..|. ... ..|
|00003500| 00 20 a0 e3 04 20 c0 e5 | 0c 20 d0 e5 80 20 c2 e3 |. ... ..|. ... ..|
|00003510| 0c 20 c0 e5 00 f0 3f e3 | 00 00 a0 e1 02 00 2d e9 |. ....?.|......-.|
|00003520| 06 00 a0 e3 08 10 a0 e3 | 57 00 02 ef 02 00 bd e8 |........|W.......|
|00003530| ff 00 11 e3 0e 00 00 1a | 16 00 02 ef c4 01 1f e5 |........|........|
|00003540| 0c 20 d0 e5 80 20 82 e3 | 0c 20 c0 e5 21 18 a0 e1 |. ... ..|. ..!...|
|00003550| 00 10 c0 e5 21 14 a0 e1 | 04 10 c0 e5 0c 20 d0 e5 |....!...|..... ..|
|00003560| 80 20 c2 e3 0c 20 c0 e5 | 00 f0 3f e3 00 00 a0 e1 |. ... ..|..?.....|
|00003570| 01 00 00 ea 05 00 a0 e3 | 57 00 02 ef 9c 00 9f e5 |........|W.......|
|00003580| 00 80 fd e8 32 00 00 00 | 09 00 00 00 4b 00 00 00 |....2...|....K...|
|00003590| 01 00 00 00 6e 00 00 00 | 0a 00 00 00 86 00 00 00 |....n...|........|
|000035a0| 0b 00 00 00 96 00 00 00 | 02 00 00 00 2c 01 00 00 |........|....,...|
|000035b0| 03 00 00 00 58 02 00 00 | 0c 00 00 00 b0 04 00 00 |....X...|........|
|000035c0| 04 00 00 00 08 07 00 00 | 0d 00 00 00 60 09 00 00 |........|....`...|
|000035d0| 05 00 00 00 10 0e 00 00 | 0e 00 00 00 c0 12 00 00 |........|........|
|000035e0| 06 00 00 00 20 1c 00 00 | 0f 00 00 00 80 25 00 00 |.... ...|.....%..|
|000035f0| 07 00 00 00 00 4b 00 00 | 08 00 00 00 00 96 00 00 |.....K..|........|
|00003600| 00 00 03 00 00 e1 00 00 | 00 00 02 00 00 c2 01 00 |........|........|
|00003610| 00 00 01 00 00 00 00 00 | 00 00 00 00 00 4b 00 00 |........|.....K..|
|00003620| 00 4b 00 00 00 00 52 e3 | 03 00 00 ba 01 00 a0 e3 |.K....R.|........|
|00003630| 02 10 a0 e1 08 10 8f e5 | 57 00 02 ef 00 00 9f e5 |........|W.......|
|00003640| 00 80 fd e8 00 00 00 00 | 04 00 2d e9 cb 00 a0 e3 |........|..-.....|
|00003650| 64 10 a0 e3 00 20 a0 e3 | 06 00 02 ef 00 00 a0 e3 |d.... ..|........|
|00003660| 00 10 a0 e3 68 20 9f e5 | 57 00 02 ef 00 00 a0 e3 |....h ..|W.......|
|00003670| 01 10 a0 e3 58 20 9f e5 | 57 00 02 ef 00 00 a0 e3 |....X ..|W.......|
|00003680| 00 10 a0 e3 48 20 9f e5 | 57 00 02 ef 08 00 bd e8 |....H ..|W.......|
|00003690| 00 00 53 e3 3c 00 9f b5 | 00 80 fd b8 14 10 a0 03 |..S.<...|........|
|000036a0| 01 00 53 e3 04 10 a0 03 | 02 00 53 e3 15 10 a0 03 |..S.....|..S.....|
|000036b0| 03 00 53 e3 01 10 a0 03 | 00 00 a0 e3 05 20 e0 e3 |..S.....|..... ..|
|000036c0| 57 00 02 ef 0c 00 9f e5 | 08 30 8f e5 00 80 fd e8 |W.......|.0......|
|000036d0| fe ff fd ff ee ff fd ff | 00 00 00 00 fe 01 2d e9 |........|......-.|
|000036e0| 01 80 a0 e1 02 00 a0 e3 | 58 00 02 ef 08 00 00 6a |........|X......j|
|000036f0| 00 00 51 e3 06 00 00 0a | 03 00 a0 e3 58 00 02 ef |..Q.....|....X...|
|00003700| 0f 0a 11 e3 01 00 a0 03 | 02 00 a0 13 48 00 8f e5 |........|....H...|
|00003710| 04 00 00 ea 00 00 a0 e3 | 24 01 0f e5 24 01 0f e5 |........|$...$...|
|00003720| ec 05 0f e5 30 00 8f e5 | 01 00 78 e3 07 00 00 0a |....0...|..x.....|
|00003730| 03 20 a0 e3 04 e0 8f e2 | 00 40 2d e9 d7 fe ff eb |. ......|.@-.....|
|00003740| 00 00 a0 e3 06 10 a0 e3 | 06 20 e0 e3 57 00 02 ef |........|. ..W...|
|00003750| 00 00 b0 e3 fe 01 bd e8 | 00 80 fd e8 00 00 00 00 |........|........|
|00003760| 00 80 fd e8 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003800| 21 46 6f 72 74 68 6d 61 | 63 73 2e 6c 69 62 2e 69 |!Forthma|cs.lib.i|
|00003810| 6e 74 65 72 76 61 6c 00 | 00 00 00 00 00 00 00 00 |nterval.|........|
|00003820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003860| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00003870| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00003880| 20 20 20 20 31 32 37 00 | 20 35 37 30 33 36 30 31 | 127.| 5703601|
|00003890| 36 33 36 00 20 31 36 34 | 37 35 00 20 30 00 00 00 |636. 164|75. 0...|
|000038a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000038f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003900| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00003910| 37 35 30 35 00 33 32 30 | 33 35 35 35 31 37 36 37 |7505.320|35551767|
|00003920| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 35 20 |. | 3.45 |
|00003930| 64 30 37 36 64 33 66 37 | 00 20 20 20 20 20 20 20 |d076d3f7|. |
|00003940| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a00| 3a 20 67 65 74 2d 6d 73 | 65 63 73 09 28 73 20 2d |: get-ms|ecs.(s -|
|00003a10| 2d 20 6e 20 29 09 67 65 | 74 2d 74 69 63 6b 73 20 |- n ).ge|t-ticks |
|00003a20| 6d 73 2f 74 69 63 6b 20 | 2a 20 3b 0a 64 23 20 31 |ms/tick |* ;.d# 1|
|00003a30| 30 30 30 20 6d 73 2f 74 | 69 63 6b 20 2f 20 20 20 |000 ms/t|ick / |
|00003a40| 63 6f 6e 73 74 61 6e 74 | 20 74 69 63 6b 73 2f 73 |constant| ticks/s|
|00003a50| 65 63 6f 6e 64 0a 0a 00 | 00 00 00 00 00 00 00 00 |econd...|........|
|00003a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c00| 21 46 6f 72 74 68 6d 61 | 63 73 2e 6c 69 62 2e 58 |!Forthma|cs.lib.X|
|00003c10| 6d 6f 64 65 6d 00 00 00 | 00 00 00 00 00 00 00 00 |modem...|........|
|00003c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c60| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00003c70| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00003c80| 20 20 31 35 36 36 34 00 | 20 36 31 35 37 35 34 32 | 15664.| 6157542|
|00003c90| 34 30 35 00 20 31 36 31 | 34 35 00 20 30 00 00 00 |405. 161|45. 0...|
|00003ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d00| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00003d10| 37 35 30 36 00 33 33 35 | 30 37 34 36 30 31 36 33 |7506.335|07460163|
|00003d20| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 36 20 |. | 3.46 |
|00003d30| 64 64 31 65 36 30 37 33 | 00 20 20 20 20 20 20 20 |dd1e6073|. |
|00003d40| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e00| 5c 20 53 69 6c 65 6e 74 | 20 76 65 72 73 69 6f 6e |\ Silent| version|
|00003e10| 20 75 73 69 6e 67 20 6d | 75 6c 74 69 74 61 73 6b | using m|ultitask|
|00003e20| 69 6e 67 0a 5c 20 58 6d | 6f 64 65 6d 20 70 72 6f |ing.\ Xm|odem pro|
|00003e30| 74 6f 63 6f 6c 20 66 69 | 6c 65 20 74 72 61 6e 73 |tocol fi|le trans|
|00003e40| 66 65 72 2e 0a 5c 20 43 | 6f 6d 6d 61 6e 64 73 3a |fer..\ C|ommands:|
|00003e50| 0a 5c 20 20 20 73 65 6e | 64 20 66 69 6c 65 6e 61 |.\ sen|d filena|
|00003e60| 6d 65 20 20 20 20 20 20 | 20 20 5c 20 53 65 6e 64 |me | \ Send|
|00003e70| 73 20 74 68 65 20 66 69 | 6c 65 0a 5c 20 20 20 72 |s the fi|le.\ r|
|00003e80| 65 63 65 69 76 65 20 66 | 69 6c 65 6e 61 6d 65 20 |eceive f|ilename |
|00003e90| 20 20 20 20 5c 20 52 65 | 63 65 69 76 65 73 20 74 | \ Re|ceives t|
|00003ea0| 68 65 20 66 69 6c 65 0a | 5c 20 54 68 65 20 73 65 |he file.|\ The se|
|00003eb0| 72 69 61 6c 20 6c 69 6e | 65 20 70 61 72 61 6d 65 |rial lin|e parame|
|00003ec0| 74 65 72 73 20 61 72 65 | 20 65 73 74 61 62 6c 69 |ters are| establi|
|00003ed0| 73 68 65 64 20 62 79 20 | 22 69 6e 69 74 2d 6d 6f |shed by |"init-mo|
|00003ee0| 64 65 6d 22 2c 20 77 68 | 69 63 68 0a 5c 20 79 6f |dem", wh|ich.\ yo|
|00003ef0| 75 20 6d 61 79 20 65 64 | 69 74 20 69 66 20 79 6f |u may ed|it if yo|
|00003f00| 75 20 6e 65 65 64 20 74 | 6f 20 75 73 65 20 64 69 |u need t|o use di|
|00003f10| 66 66 65 72 65 6e 74 20 | 6f 6e 65 73 2e 0a 5c 20 |fferent |ones..\ |
|00003f20| 54 68 65 20 78 6d 6f 64 | 65 6d 20 70 72 6f 74 6f |The xmod|em proto|
|00003f30| 63 6f 6c 20 72 65 71 75 | 69 72 65 73 20 38 20 64 |col requ|ires 8 d|
|00003f40| 61 74 61 20 62 69 74 73 | 2c 20 73 6f 20 63 68 61 |ata bits|, so cha|
|00003f50| 6e 67 69 6e 67 20 74 68 | 61 74 20 70 61 72 61 6d |nging th|at param|
|00003f60| 65 74 65 72 0a 5c 20 77 | 6f 6e 27 74 20 77 6f 72 |eter.\ w|on't wor|
|00003f70| 6b 2e 0a 0a 5c 20 2a 2a | 2a 2a 2a 20 49 6e 74 65 |k...\ **|*** Inte|
|00003f80| 72 66 61 63 65 20 74 6f | 20 74 68 65 20 73 65 72 |rface to| the ser|
|00003f90| 69 61 6c 20 6c 69 6e 65 | 3a 20 2a 2a 2a 2a 2a 0a |ial line|: *****.|
|00003fa0| 5c 20 69 6e 69 74 2d 6d | 6f 64 65 6d 20 20 20 2d |\ init-m|odem -|
|00003fb0| 2d 0a 5c 20 20 20 20 20 | 20 20 45 73 74 61 62 6c |-.\ | Establ|
|00003fc0| 69 73 68 65 73 20 74 68 | 65 20 64 65 73 69 72 65 |ishes th|e desire|
|00003fd0| 64 20 62 61 75 64 20 72 | 61 74 65 20 61 6e 64 20 |d baud r|ate and |
|00003fe0| 23 20 6f 66 20 62 69 74 | 73 20 6f 6e 20 74 68 65 |# of bit|s on the|
|00003ff0| 20 73 65 72 69 61 6c 20 | 6c 69 6e 65 0a 5c 20 6d | serial |line.\ m|
|00004000| 2d 6b 65 79 3f 20 20 20 | 20 20 2d 2d 20 66 6c 61 |-key? | -- fla|
|00004010| 67 0a 5c 20 20 20 20 20 | 20 20 46 6c 61 67 20 69 |g.\ | Flag i|
|00004020| 73 20 74 72 75 65 20 69 | 66 20 61 20 63 68 61 72 |s true i|f a char|
|00004030| 61 63 74 65 72 20 69 73 | 20 61 76 61 69 6c 61 62 |acter is| availab|
|00004040| 6c 65 20 6f 6e 20 74 68 | 65 20 73 65 72 69 61 6c |le on th|e serial|
|00004050| 20 6c 69 6e 65 0a 5c 20 | 6d 2d 6b 65 79 20 20 20 | line.\ |m-key |
|00004060| 20 20 20 2d 2d 20 63 68 | 61 72 0a 5c 20 20 20 20 | -- ch|ar.\ |
|00004070| 20 20 20 47 65 74 73 20 | 61 20 63 68 61 72 61 63 | Gets |a charac|
|00004080| 74 65 72 20 66 72 6f 6d | 20 74 68 65 20 73 65 72 |ter from| the ser|
|00004090| 69 61 6c 20 6c 69 6e 65 | 0a 5c 20 6d 2d 65 6d 69 |ial line|.\ m-emi|
|000040a0| 74 20 20 20 20 20 20 20 | 20 63 68 61 72 20 2d 2d |t | char --|
|000040b0| 0a 5c 20 20 20 20 20 20 | 20 50 75 74 73 20 74 68 |.\ | Puts th|
|000040c0| 65 20 63 68 61 72 61 63 | 74 65 72 20 6f 75 74 20 |e charac|ter out |
|000040d0| 6f 6e 20 74 68 65 20 73 | 65 72 69 61 6c 20 6c 69 |on the s|erial li|
|000040e0| 6e 65 2e 0a 0a 6f 6e 6c | 79 20 66 6f 72 74 68 20 |ne...onl|y forth |
|000040f0| 61 6c 73 6f 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |also def|initions|
|00004100| 0a 5c 6e 65 65 64 73 20 | 6d 6f 64 65 6d 20 63 72 |.\needs |modem cr|
|00004110| 20 2e 28 20 4f 53 20 73 | 70 65 63 69 66 69 63 20 | .( OS s|pecific |
|00004120| 6d 6f 64 65 6d 20 64 72 | 69 76 65 72 20 6d 75 73 |modem dr|iver mus|
|00004130| 74 20 62 65 20 6c 6f 61 | 64 65 64 20 66 69 72 73 |t be loa|ded firs|
|00004140| 74 29 20 61 62 6f 72 74 | 0a 0a 6f 6e 6c 79 20 66 |t) abort|..only f|
|00004150| 6f 72 74 68 20 61 6c 73 | 6f 20 6d 6f 64 65 6d 20 |orth als|o modem |
|00004160| 61 6c 73 6f 20 20 20 6d | 6f 64 65 6d 20 64 65 66 |also m|odem def|
|00004170| 69 6e 69 74 69 6f 6e 73 | 0a 64 65 63 69 6d 61 6c |initions|.decimal|
|00004180| 0a 0a 76 61 72 69 61 62 | 6c 65 20 63 68 65 63 6b |..variab|le check|
|00004190| 73 75 6d 0a 76 61 72 69 | 61 62 6c 65 20 23 65 72 |sum.vari|able #er|
|000041a0| 72 6f 72 73 0a 76 61 72 | 69 61 62 6c 65 20 23 6e |rors.var|iable #n|
|000041b0| 61 6b 73 0a 76 61 72 69 | 61 62 6c 65 20 65 78 70 |aks.vari|able exp|
|000041c0| 65 63 74 65 64 2d 73 65 | 63 74 6f 72 0a 76 61 72 |ected-se|ctor.var|
|000041d0| 69 61 62 6c 65 20 23 63 | 6f 6e 74 72 6f 6c 2d 7a |iable #c|ontrol-z|
|000041e0| 27 73 0a 76 61 72 69 61 | 62 6c 65 20 73 65 63 74 |'s.varia|ble sect|
|000041f0| 6f 72 23 0a 76 61 72 69 | 61 62 6c 65 20 73 65 63 |or#.vari|able sec|
|00004200| 74 6f 72 2d 70 74 72 0a | 76 61 72 69 61 62 6c 65 |tor-ptr.|variable|
|00004210| 20 74 69 6d 65 72 2d 69 | 6e 69 74 0a 76 61 72 69 | timer-i|nit.vari|
|00004220| 61 62 6c 65 20 74 69 6d | 65 72 0a 76 61 72 69 61 |able tim|er.varia|
|00004230| 62 6c 65 20 78 6d 6f 64 | 65 6d 2d 66 64 09 78 6d |ble xmod|em-fd.xm|
|00004240| 6f 64 65 6d 2d 66 64 20 | 6f 66 66 0a 76 61 72 69 |odem-fd |off.vari|
|00004250| 61 62 6c 65 20 78 6d 6f | 64 65 6d 2d 23 65 72 72 |able xmo|dem-#err|
|00004260| 6f 72 0a 76 61 72 69 61 | 62 6c 65 20 78 72 65 61 |or.varia|ble xrea|
|00004270| 64 2f 77 72 69 74 65 09 | 5c 20 30 20 72 65 63 65 |d/write.|\ 0 rece|
|00004280| 69 76 65 20 2d 2d 20 31 | 20 73 65 6e 64 69 6e 67 |ive -- 1| sending|
|00004290| 0a 0a 73 74 72 69 6e 67 | 2d 61 72 72 61 79 20 78 |..string|-array x|
|000042a0| 6d 6f 64 65 6d 2d 65 72 | 72 6f 72 73 0a 20 20 28 |modem-er|rors. (|
|000042b0| 20 30 20 29 20 20 2c 22 | 20 72 65 63 65 69 76 65 | 0 ) ,"| receive|
|000042c0| 2c 20 72 65 61 64 20 73 | 65 63 74 6f 72 22 0a 20 |, read s|ector". |
|000042d0| 20 28 20 31 20 29 20 20 | 2c 22 20 73 65 6e 64 69 | ( 1 ) |," sendi|
|000042e0| 6e 67 2c 20 77 72 69 74 | 65 20 73 65 6b 74 6f 72 |ng, writ|e sektor|
|000042f0| 22 0a 20 20 28 20 32 20 | 29 20 20 2c 22 20 72 65 |". ( 2 |) ," re|
|00004300| 63 65 69 76 65 2c 20 68 | 65 61 64 65 72 22 0a 20 |ceive, h|eader". |
|00004310| 20 28 20 33 20 29 20 20 | 2c 22 20 72 65 63 65 69 | ( 3 ) |," recei|
|00004320| 76 65 2c 20 62 6c 6f 63 | 6b 22 0a 20 20 28 20 34 |ve, bloc|k". ( 4|
|00004330| 20 29 20 20 2c 22 20 72 | 65 63 65 69 76 65 2c 20 | ) ," r|eceive, |
|00004340| 63 68 65 63 6b 73 75 6d | 22 0a 20 20 28 20 35 20 |checksum|". ( 5 |
|00004350| 29 20 20 2c 22 20 72 65 | 63 65 69 76 65 2c 20 63 |) ," re|ceive, c|
|00004360| 61 6e 63 65 6c 65 64 22 | 0a 20 20 28 20 36 20 29 |anceled"|. ( 6 )|
|00004370| 20 20 2c 22 20 72 65 63 | 65 69 76 65 2c 20 74 69 | ," rec|eive, ti|
|00004380| 6d 65 6f 75 74 22 0a 20 | 20 28 20 37 20 29 20 20 |meout". | ( 7 ) |
|00004390| 2c 22 20 72 65 63 65 69 | 76 65 2c 20 62 6f 67 75 |," recei|ve, bogu|
|000043a0| 73 20 63 68 61 72 22 0a | 20 20 28 20 38 20 29 20 |s char".| ( 8 ) |
|000043b0| 20 2c 22 20 73 65 6e 64 | 69 6e 67 2c 20 74 69 6d | ," send|ing, tim|
|000043c0| 65 6f 75 74 22 0a 20 20 | 28 20 39 20 29 20 20 2c |eout". |( 9 ) ,|
|000043d0| 22 20 73 65 6e 64 69 6e | 67 2c 20 63 61 6e 63 65 |" sendin|g, cance|
|000043e0| 6c 65 64 22 0a 20 20 28 | 20 31 30 29 20 20 2c 22 |led". (| 10) ,"|
|000043f0| 20 73 65 6e 64 69 6e 67 | 2c 20 72 65 63 65 69 76 | sending|, receiv|
|00004400| 65 64 20 62 6f 67 75 73 | 20 63 68 61 72 22 0a 20 |ed bogus| char". |
|00004410| 20 28 20 31 31 29 20 20 | 2c 22 20 72 65 63 65 69 | ( 11) |," recei|
|00004420| 76 65 2c 20 58 6d 6f 64 | 65 6d 20 73 74 61 72 74 |ve, Xmod|em start|
|00004430| 65 64 22 0a 20 20 28 20 | 31 32 29 20 20 2c 22 20 |ed". ( |12) ," |
|00004440| 73 65 6e 64 69 6e 67 2c | 20 58 6d 6f 64 65 6d 20 |sending,| Xmodem |
|00004450| 73 74 61 72 74 65 64 22 | 0a 20 20 28 20 31 33 29 |started"|. ( 13)|
|00004460| 20 20 2c 22 20 58 6d 6f | 64 65 6d 20 66 69 6e 69 | ," Xmo|dem fini|
|00004470| 73 68 65 64 22 0a 65 6e | 64 2d 73 74 72 69 6e 67 |shed".en|d-string|
|00004480| 2d 61 72 72 61 79 0a 0a | 20 20 32 20 63 6f 6e 73 |-array..| 2 cons|
|00004490| 74 61 6e 74 20 78 6d 6f | 64 65 6d 23 63 68 61 6e |tant xmo|dem#chan|
|000044a0| 6e 65 6c 0a 20 20 34 20 | 63 6f 6e 73 74 61 6e 74 |nel. 4 |constant|
|000044b0| 20 6d 61 78 23 65 72 72 | 6f 72 73 0a 20 20 30 20 | max#err|ors. 0 |
|000044c0| 63 6f 6e 73 74 61 6e 74 | 20 6e 75 6c 0a 20 20 31 |constant| nul. 1|
|000044d0| 20 63 6f 6e 73 74 61 6e | 74 20 73 6f 68 0a 20 20 | constan|t soh. |
|000044e0| 34 20 63 6f 6e 73 74 61 | 6e 74 20 65 6f 74 0a 20 |4 consta|nt eot. |
|000044f0| 20 36 20 63 6f 6e 73 74 | 61 6e 74 20 61 63 6b 0a | 6 const|ant ack.|
|00004500| 20 32 31 20 63 6f 6e 73 | 74 61 6e 74 20 6e 61 6b | 21 cons|tant nak|
|00004510| 0a 20 32 34 20 63 6f 6e | 73 74 61 6e 74 20 63 61 |. 24 con|stant ca|
|00004520| 6e 0a 31 32 38 20 62 75 | 66 66 65 72 3a 20 73 65 |n.128 bu|ffer: se|
|00004530| 63 74 6f 72 2d 62 75 66 | 0a 31 32 38 20 62 75 66 |ctor-buf|.128 buf|
|00004540| 66 65 72 3a 20 78 66 6e | 61 6d 65 0a 0a 3a 20 74 |fer: xfn|ame..: t|
|00004550| 69 6d 65 6f 75 74 3a 20 | 20 5c 20 6e 61 6d 65 20 |imeout: | \ name |
|00004560| 20 28 20 73 65 63 6f 6e | 64 73 20 2d 2d 20 29 0a | ( secon|ds -- ).|
|00004570| 09 63 72 65 61 74 65 20 | 2c 20 20 64 6f 65 73 3e |.create |, does>|
|00004580| 20 20 40 20 28 20 73 65 | 63 6f 6e 64 73 20 29 20 | @ ( se|conds ) |
|00004590| 74 69 63 6b 73 2f 73 65 | 63 6f 6e 64 20 20 2a 20 |ticks/se|cond * |
|000045a0| 20 20 74 69 6d 65 72 2d | 69 6e 69 74 20 21 20 3b | timer-|init ! ;|
|000045b0| 0a 20 33 20 74 69 6d 65 | 6f 75 74 3a 20 73 68 6f |. 3 time|out: sho|
|000045c0| 72 74 2d 74 69 6d 65 6f | 75 74 0a 20 36 20 74 69 |rt-timeo|ut. 6 ti|
|000045d0| 6d 65 6f 75 74 3a 20 6c | 6f 6e 67 2d 74 69 6d 65 |meout: l|ong-time|
|000045e0| 6f 75 74 0a 36 30 20 74 | 69 6d 65 6f 75 74 3a 20 |out.60 t|imeout: |
|000045f0| 69 6e 69 74 69 61 6c 2d | 74 69 6d 65 6f 75 74 0a |initial-|timeout.|
|00004600| 0a 73 68 6f 72 74 2d 74 | 69 6d 65 6f 75 74 0a 3a |.short-t|imeout.:|
|00004610| 20 78 65 72 72 09 09 28 | 20 23 65 72 72 6f 72 20 | xerr..(| #error |
|00004620| 2d 2d 20 29 0a 09 78 6d | 6f 64 65 6d 2d 23 65 72 |-- )..xm|odem-#er|
|00004630| 72 6f 72 20 21 20 3b 0a | 3a 20 69 6e 69 74 2d 6d |ror ! ;.|: init-m|
|00004640| 6f 64 65 6d 09 28 20 2d | 2d 20 29 09 5c 20 69 6e |odem.( -|- ).\ in|
|00004650| 69 74 69 61 6c 69 7a 65 | 20 6d 6f 64 65 6d 20 6c |itialize| modem l|
|00004660| 69 6e 65 0a 09 38 2d 62 | 69 74 73 20 32 2d 73 74 |ine..8-b|its 2-st|
|00004670| 6f 70 2d 62 69 74 73 20 | 6e 6f 2d 70 61 72 69 74 |op-bits |no-parit|
|00004680| 79 20 39 36 30 30 2d 62 | 61 75 64 20 72 74 73 2f |y 9600-b|aud rts/|
|00004690| 63 74 73 20 73 65 74 2d | 6c 69 6e 65 20 3b 0a 3a |cts set-|line ;.:|
|000046a0| 20 63 6c 6f 73 65 2d 78 | 66 69 6c 65 09 28 20 2d | close-x|file.( -|
|000046b0| 2d 20 29 0a 09 78 6d 6f | 64 65 6d 2d 66 64 20 40 |- )..xmo|dem-fd @|
|000046c0| 20 20 66 63 6c 6f 73 65 | 20 78 6d 6f 64 65 6d 2d | fclose| xmodem-|
|000046d0| 66 64 20 6f 66 66 0a 09 | 6d 2d 63 6c 6f 73 65 20 |fd off..|m-close |
|000046e0| 3b 0a 3a 20 61 62 6f 72 | 74 2d 65 6e 64 09 28 20 |;.: abor|t-end.( |
|000046f0| 2d 2d 20 29 20 20 5c 20 | 61 62 6f 72 74 20 61 6e |-- ) \ |abort an|
|00004700| 64 20 63 6c 65 61 6e 20 | 75 70 0a 09 63 6c 6f 73 |d clean |up..clos|
|00004710| 65 2d 78 66 69 6c 65 20 | 2d 31 20 78 6d 6f 64 65 |e-xfile |-1 xmode|
|00004720| 6d 2d 66 64 20 21 20 73 | 74 6f 70 20 3b 0a 3a 20 |m-fd ! s|top ;.: |
|00004730| 6e 6f 72 6d 61 6c 2d 65 | 6e 64 20 28 20 2d 2d 20 |normal-e|nd ( -- |
|00004740| 29 20 20 20 5c 20 63 6c | 65 61 6e 20 75 70 0a 09 |) \ cl|ean up..|
|00004750| 61 63 6b 20 6d 2d 65 6d | 69 74 20 20 63 6c 6f 73 |ack m-em|it clos|
|00004760| 65 2d 78 66 69 6c 65 20 | 64 23 20 31 33 20 78 65 |e-xfile |d# 13 xe|
|00004770| 72 72 20 73 74 6f 70 20 | 3b 0a 3a 20 3f 69 6e 74 |rr stop |;.: ?int|
|00004780| 65 72 72 75 70 74 09 28 | 20 2d 2d 20 29 20 20 5c |errupt.(| -- ) \|
|00004790| 20 61 62 6f 72 74 73 20 | 69 66 20 75 73 65 72 20 | aborts |if user |
|000047a0| 74 79 70 65 73 20 63 6f | 6e 74 72 6f 6c 20 5a 0a |types co|ntrol Z.|
|000047b0| 09 6b 65 79 3f 20 69 66 | 20 6b 65 79 20 63 6f 6e |.key? if| key con|
|000047c0| 74 72 6f 6c 20 5a 20 3d | 20 69 66 20 61 62 6f 72 |trol Z =| if abor|
|000047d0| 74 2d 65 6e 64 20 74 68 | 65 6e 20 74 68 65 6e 20 |t-end th|en then |
|000047e0| 3b 0a 3a 20 74 69 6d 65 | 64 2d 69 6e 09 28 20 2d |;.: time|d-in.( -|
|000047f0| 2d 20 63 68 61 72 20 7c | 20 2d 31 20 29 20 5c 20 |- char || -1 ) \ |
|00004800| 67 65 74 20 61 20 63 68 | 61 72 61 63 74 65 72 20 |get a ch|aracter |
|00004810| 75 6e 6c 65 73 73 20 74 | 69 6d 65 6f 75 74 0a 09 |unless t|imeout..|
|00004820| 67 65 74 2d 74 69 63 6b | 73 20 20 74 69 6d 65 72 |get-tick|s timer|
|00004830| 2d 69 6e 69 74 20 40 20 | 20 2b 20 20 74 69 6d 65 |-init @ | + time|
|00004840| 72 20 21 0a 09 62 65 67 | 69 6e 09 6d 2d 6b 65 79 |r !..beg|in.m-key|
|00004850| 3f 20 69 66 20 6d 2d 6b | 65 79 20 65 78 69 74 20 |? if m-k|ey exit |
|00004860| 74 68 65 6e 0a 09 09 74 | 69 6d 65 72 20 40 20 72 |then...t|imer @ r|
|00004870| 65 61 63 68 65 64 3f 0a | 09 75 6e 74 69 6c 20 2d |eached?.|.until -|
|00004880| 31 20 3b 0a 3a 20 67 6f | 62 62 6c 65 09 28 20 2d |1 ;.: go|bble.( -|
|00004890| 2d 20 29 20 5c 20 65 61 | 74 20 63 68 61 72 61 63 |- ) \ ea|t charac|
|000048a0| 74 65 72 73 20 75 6e 74 | 69 6c 20 74 68 65 79 20 |ters unt|il they |
|000048b0| 73 74 6f 70 20 63 6f 6d | 69 6e 67 0a 09 73 68 6f |stop com|ing..sho|
|000048c0| 72 74 2d 74 69 6d 65 6f | 75 74 0a 09 62 65 67 69 |rt-timeo|ut..begi|
|000048d0| 6e 20 74 69 6d 65 64 2d | 69 6e 20 2d 31 20 3d 20 |n timed-|in -1 = |
|000048e0| 75 6e 74 69 6c 0a 09 6c | 6f 6e 67 2d 74 69 6d 65 |until..l|ong-time|
|000048f0| 6f 75 74 20 3b 0a 3a 20 | 72 65 61 64 2d 73 65 63 |out ;.: |read-sec|
|00004900| 74 6f 72 09 28 20 61 64 | 72 20 2d 2d 20 65 6e 64 |tor.( ad|r -- end|
|00004910| 2d 6f 66 2d 66 69 6c 65 | 3f 20 29 0a 09 64 75 70 |-of-file|? )..dup|
|00004920| 20 31 32 38 20 78 6d 6f | 64 65 6d 2d 66 64 20 40 | 128 xmo|dem-fd @|
|00004930| 20 20 66 67 65 74 73 20 | 20 74 75 63 6b 20 2b 09 | fgets | tuck +.|
|00004940| 28 20 63 6f 75 6e 74 20 | 65 6e 64 2d 61 64 72 20 |( count |end-adr |
|00004950| 29 0a 09 5c 20 50 61 64 | 20 77 69 74 68 20 63 6f |)..\ Pad| with co|
|00004960| 6e 74 72 6f 6c 20 5a 27 | 73 20 69 66 20 6e 65 63 |ntrol Z'|s if nec|
|00004970| 65 73 73 61 72 79 0a 09 | 6f 76 65 72 20 31 32 38 |essary..|over 128|
|00004980| 20 73 77 61 70 20 2d 20 | 20 63 6f 6e 74 72 6f 6c | swap - | control|
|00004990| 20 5a 20 66 69 6c 6c 20 | 20 30 3d 20 3b 0a 0a 3a | Z fill | 0= ;..:|
|000049a0| 20 77 72 69 74 65 2d 73 | 65 63 74 6f 72 20 20 28 | write-s|ector (|
|000049b0| 20 61 64 72 20 2d 2d 20 | 29 20 5c 20 77 72 69 74 | adr -- |) \ writ|
|000049c0| 65 20 6f 75 74 20 74 68 | 65 20 73 65 63 74 6f 72 |e out th|e sector|
|000049d0| 0a 09 5c 20 44 75 6d 70 | 20 6f 75 74 20 61 6e 79 |..\ Dump| out any|
|000049e0| 20 63 6f 6e 74 72 6f 6c | 20 5a 27 73 20 6c 65 66 | control| Z's lef|
|000049f0| 74 20 6f 76 65 72 20 66 | 72 6f 6d 20 6c 61 73 74 |t over f|rom last|
|00004a00| 20 74 69 6d 65 0a 09 23 | 63 6f 6e 74 72 6f 6c 2d | time..#|control-|
|00004a10| 7a 27 73 20 40 20 30 20 | 3f 64 6f 20 63 6f 6e 74 |z's @ 0 |?do cont|
|00004a20| 72 6f 6c 20 5a 20 78 6d | 6f 64 65 6d 2d 66 64 20 |rol Z xm|odem-fd |
|00004a30| 40 20 66 70 75 74 63 20 | 6c 6f 6f 70 0a 09 5c 20 |@ fputc |loop..\ |
|00004a40| 43 6f 75 6e 74 20 74 68 | 65 20 63 6f 6e 74 72 6f |Count th|e contro|
|00004a50| 6c 20 7a 27 73 20 61 74 | 20 74 68 65 20 65 6e 64 |l z's at| the end|
|00004a60| 20 6f 66 20 74 68 65 20 | 62 75 66 66 65 72 0a 09 | of the |buffer..|
|00004a70| 23 63 6f 6e 74 72 6f 6c | 2d 7a 27 73 20 6f 66 66 |#control|-z's off|
|00004a80| 20 20 20 64 75 70 20 64 | 75 70 20 31 32 37 20 2b | dup d|up 127 +|
|00004a90| 09 28 20 61 64 64 72 20 | 61 64 64 72 20 65 6e 64 |.( addr |addr end|
|00004aa0| 2d 61 64 64 72 65 73 73 | 20 29 0a 09 64 6f 09 69 |-address| )..do.i|
|00004ab0| 20 63 40 20 20 63 6f 6e | 74 72 6f 6c 20 5a 20 3c | c@ con|trol Z <|
|00004ac0| 3e 20 3f 6c 65 61 76 65 | 0a 09 09 31 20 23 63 6f |> ?leave|...1 #co|
|00004ad0| 6e 74 72 6f 6c 2d 7a 27 | 73 20 2b 21 0a 09 2d 31 |ntrol-z'|s +!..-1|
|00004ae0| 20 2b 6c 6f 6f 70 09 09 | 09 09 28 20 61 64 64 72 | +loop..|..( addr|
|00004af0| 20 29 0a 09 31 32 38 20 | 23 63 6f 6e 74 72 6f 6c | )..128 |#control|
|00004b00| 2d 7a 27 73 20 40 20 2d | 20 20 78 6d 6f 64 65 6d |-z's @ -| xmodem|
|00004b10| 2d 66 64 20 40 20 66 70 | 75 74 73 20 3b 0a 0a 3a |-fd @ fp|uts ;..:|
|00004b20| 20 72 65 63 65 69 76 65 | 2d 65 72 72 6f 72 09 28 | receive|-error.(|
|00004b30| 20 23 65 72 72 6f 72 20 | 2d 2d 20 29 20 5c 20 65 | #error |-- ) \ e|
|00004b40| 61 74 20 72 65 73 74 20 | 6f 66 20 70 61 63 6b 65 |at rest |of packe|
|00004b50| 74 20 61 6e 64 20 73 65 | 6e 64 20 61 20 6e 61 6b |t and se|nd a nak|
|00004b60| 0a 09 78 65 72 72 20 20 | 67 6f 62 62 6c 65 20 20 |..xerr |gobble |
|00004b70| 31 20 23 6e 61 6b 73 20 | 2b 21 20 20 23 6e 61 6b |1 #naks |+! #nak|
|00004b80| 73 20 40 20 6d 61 78 23 | 65 72 72 6f 72 73 20 3e |s @ max#|errors >|
|00004b90| 0a 09 69 66 20 20 63 61 | 6e 20 6d 2d 65 6d 69 74 |..if ca|n m-emit|
|00004ba0| 20 20 61 62 6f 72 74 2d | 65 6e 64 20 74 68 65 6e | abort-|end then|
|00004bb0| 0a 09 6e 61 6b 20 6d 2d | 65 6d 69 74 20 3b 0a 0a |..nak m-|emit ;..|
|00004bc0| 3a 20 72 65 63 65 69 76 | 65 2d 68 65 61 64 65 72 |: receiv|e-header|
|00004bd0| 20 28 20 2d 2d 20 66 20 | 29 20 5c 20 74 72 75 65 | ( -- f |) \ true|
|00004be0| 20 69 66 20 68 65 61 64 | 65 72 20 65 72 72 6f 72 | if head|er error|
|00004bf0| 0a 09 74 69 6d 65 64 2d | 69 6e 20 20 64 75 70 20 |..timed-|in dup |
|00004c00| 20 2d 31 20 3d 20 20 3f | 65 78 69 74 0a 09 64 75 | -1 = ?|exit..du|
|00004c10| 70 20 73 65 63 74 6f 72 | 23 20 21 0a 09 74 69 6d |p sector|# !..tim|
|00004c20| 65 64 2d 69 6e 20 20 64 | 75 70 20 20 2d 31 20 3d |ed-in d|up -1 =|
|00004c30| 20 20 3f 65 78 69 74 0a | 09 32 35 35 20 78 6f 72 | ?exit.|.255 xor|
|00004c40| 20 3c 3e 20 3b 0a 3a 20 | 72 65 63 65 69 76 65 2d | <> ;.: |receive-|
|00004c50| 73 65 63 74 6f 72 20 20 | 28 20 2d 2d 20 66 20 29 |sector |( -- f )|
|00004c60| 20 5c 20 74 72 75 65 20 | 69 66 20 72 75 6e 74 20 | \ true |if runt |
|00004c70| 73 65 63 74 6f 72 0a 09 | 30 20 78 65 72 72 0a 09 |sector..|0 xerr..|
|00004c80| 30 20 63 68 65 63 6b 73 | 75 6d 20 21 20 20 66 61 |0 checks|um ! fa|
|00004c90| 6c 73 65 0a 09 73 65 63 | 74 6f 72 2d 62 75 66 20 |lse..sec|tor-buf |
|00004ca0| 20 31 32 38 20 20 20 62 | 6f 75 6e 64 73 0a 09 64 | 128 b|ounds..d|
|00004cb0| 6f 09 74 69 6d 65 64 2d | 69 6e 20 64 75 70 20 2d |o.timed-|in dup -|
|00004cc0| 31 20 3d 0a 09 09 69 66 | 20 20 28 20 66 61 6c 73 |1 =...if| ( fals|
|00004cd0| 65 20 2d 31 20 29 20 20 | 6e 69 70 20 20 6c 65 61 |e -1 ) |nip lea|
|00004ce0| 76 65 20 74 68 65 6e 20 | 20 20 28 20 66 61 6c 73 |ve then | ( fals|
|00004cf0| 65 20 63 68 61 72 20 29 | 0a 09 09 64 75 70 20 20 |e char )|...dup |
|00004d00| 69 20 63 21 20 20 20 63 | 68 65 63 6b 73 75 6d 20 |i c! c|hecksum |
|00004d10| 2b 21 0a 09 6c 6f 6f 70 | 20 28 20 72 75 6e 74 2d |+!..loop| ( runt-|
|00004d20| 73 65 63 74 6f 72 3f 20 | 29 20 3b 0a 3a 20 72 65 |sector? |) ;.: re|
|00004d30| 63 65 69 76 65 2d 63 68 | 65 63 6b 73 75 6d 20 20 |ceive-ch|ecksum |
|00004d40| 28 20 2d 2d 20 66 20 29 | 20 5c 20 74 72 75 65 20 |( -- f )| \ true |
|00004d50| 69 66 20 63 68 65 63 6b | 73 75 6d 20 65 72 72 6f |if check|sum erro|
|00004d60| 72 0a 09 74 69 6d 65 64 | 2d 69 6e 20 64 75 70 20 |r..timed|-in dup |
|00004d70| 2d 31 20 3c 3e 09 28 20 | 63 68 61 72 20 74 72 75 |-1 <>.( |char tru|
|00004d80| 65 20 20 7c 20 20 2d 31 | 20 66 61 6c 73 65 20 29 |e | -1| false )|
|00004d90| 0a 09 69 66 20 20 20 20 | 63 68 65 63 6b 73 75 6d |..if |checksum|
|00004da0| 20 40 20 32 35 35 20 61 | 6e 64 20 20 3c 3e 20 20 | @ 255 a|nd <> |
|00004db0| 74 68 65 6e 20 3b 0a 3a | 20 72 65 63 65 69 76 65 |then ;.:| receive|
|00004dc0| 2d 70 61 63 6b 65 74 20 | 20 28 20 2d 2d 20 66 20 |-packet | ( -- f |
|00004dd0| 29 20 5c 20 74 72 75 65 | 20 69 66 20 65 6e 64 20 |) \ true| if end |
|00004de0| 6f 66 20 74 72 61 6e 73 | 66 65 72 0a 09 66 61 6c |of trans|fer..fal|
|00004df0| 73 65 20 74 69 6d 65 64 | 2d 69 6e 0a 09 63 61 73 |se timed|-in..cas|
|00004e00| 65 09 73 6f 68 20 6f 66 | 09 09 09 09 09 65 6e 64 |e.soh of|.....end|
|00004e10| 6f 66 0a 09 09 6e 75 6c | 20 6f 66 20 20 20 31 2d |of...nul| of 1-|
|00004e20| 09 09 09 65 78 69 74 09 | 65 6e 64 6f 66 0a 09 09 |...exit.|endof...|
|00004e30| 63 61 6e 20 6f 66 20 20 | 20 35 20 78 65 72 72 20 |can of | 5 xerr |
|00004e40| 09 61 62 6f 72 74 2d 65 | 6e 64 09 65 6e 64 6f 66 |.abort-e|nd.endof|
|00004e50| 0a 09 09 65 6f 74 20 6f | 66 20 20 20 31 2d 20 6e |...eot o|f 1- n|
|00004e60| 6f 72 6d 61 6c 2d 65 6e | 64 09 09 65 78 69 74 09 |ormal-en|d..exit.|
|00004e70| 65 6e 64 6f 66 0a 09 09 | 2d 31 20 20 6f 66 20 20 |endof...|-1 of |
|00004e80| 20 36 20 72 65 63 65 69 | 76 65 2d 65 72 72 6f 72 | 6 recei|ve-error|
|00004e90| 09 65 78 69 74 09 65 6e | 64 6f 66 0a 09 09 20 20 |.exit.en|dof... |
|00004ea0| 20 20 20 20 20 20 20 37 | 20 72 65 63 65 69 76 65 | 7| receive|
|00004eb0| 2d 65 72 72 6f 72 09 65 | 78 69 74 0a 09 65 6e 64 |-error.e|xit..end|
|00004ec0| 63 61 73 65 0a 09 72 65 | 63 65 69 76 65 2d 68 65 |case..re|ceive-he|
|00004ed0| 61 64 65 72 20 20 20 20 | 69 66 20 32 20 72 65 63 |ader |if 2 rec|
|00004ee0| 65 69 76 65 2d 65 72 72 | 6f 72 20 65 78 69 74 20 |eive-err|or exit |
|00004ef0| 74 68 65 6e 0a 09 72 65 | 63 65 69 76 65 2d 73 65 |then..re|ceive-se|
|00004f00| 63 74 6f 72 20 20 20 20 | 69 66 20 33 20 72 65 63 |ctor |if 3 rec|
|00004f10| 65 69 76 65 2d 65 72 72 | 6f 72 20 65 78 69 74 20 |eive-err|or exit |
|00004f20| 74 68 65 6e 0a 09 72 65 | 63 65 69 76 65 2d 63 68 |then..re|ceive-ch|
|00004f30| 65 63 6b 73 75 6d 20 20 | 69 66 20 34 20 72 65 63 |ecksum |if 4 rec|
|00004f40| 65 69 76 65 2d 65 72 72 | 6f 72 20 65 78 69 74 20 |eive-err|or exit |
|00004f50| 74 68 65 6e 0a 09 73 65 | 63 74 6f 72 2d 62 75 66 |then..se|ctor-buf|
|00004f60| 20 77 72 69 74 65 2d 73 | 65 63 74 6f 72 20 20 61 | write-s|ector a|
|00004f70| 63 6b 20 6d 2d 65 6d 69 | 74 0a 09 31 20 65 78 70 |ck m-emi|t..1 exp|
|00004f80| 65 63 74 65 64 2d 73 65 | 63 74 6f 72 20 2b 21 20 |ected-se|ctor +! |
|00004f90| 20 23 6e 61 6b 73 20 6f | 66 66 20 3b 0a 0a 3a 20 | #naks o|ff ;..: |
|00004fa0| 77 61 69 74 2d 61 63 6b | 09 28 20 2d 2d 20 29 20 |wait-ack|.( -- ) |
|00004fb0| 5c 20 77 61 69 74 20 66 | 6f 72 20 61 63 6b 20 6f |\ wait f|or ack o|
|00004fc0| 72 20 63 61 6e 0a 09 30 | 20 23 65 72 72 6f 72 73 |r can..0| #errors|
|00004fd0| 20 21 0a 09 62 65 67 69 | 6e 09 23 65 72 72 6f 72 | !..begi|n.#error|
|00004fe0| 73 20 40 20 20 6d 61 78 | 23 65 72 72 6f 72 73 20 |s @ max|#errors |
|00004ff0| 3e 20 20 23 6e 61 6b 73 | 20 40 20 20 6d 61 78 23 |> #naks| @ max#|
|00005000| 65 72 72 6f 72 73 20 3e | 20 6f 72 0a 09 09 69 66 |errors >| or...if|
|00005010| 20 63 61 6e 20 6d 2d 65 | 6d 69 74 20 61 62 6f 72 | can m-e|mit abor|
|00005020| 74 2d 65 6e 64 20 20 74 | 68 65 6e 0a 09 09 3f 69 |t-end t|hen...?i|
|00005030| 6e 74 65 72 72 75 70 74 | 20 20 74 69 6d 65 64 2d |nterrupt| timed-|
|00005040| 69 6e 0a 09 09 63 61 73 | 65 0a 09 09 09 2d 31 20 |in...cas|e....-1 |
|00005050| 20 6f 66 20 20 20 31 20 | 23 65 72 72 6f 72 73 20 | of 1 |#errors |
|00005060| 2b 21 20 20 38 20 78 65 | 72 72 09 65 6e 64 6f 66 |+! 8 xe|rr.endof|
|00005070| 0a 09 09 09 63 61 6e 20 | 6f 66 20 20 20 39 20 78 |....can |of 9 x|
|00005080| 65 72 72 20 20 61 62 6f | 72 74 2d 65 6e 64 09 65 |err abo|rt-end.e|
|00005090| 6e 64 6f 66 0a 09 09 09 | 61 63 6b 20 6f 66 20 20 |ndof....|ack of |
|000050a0| 20 23 6e 61 6b 73 20 6f | 66 66 20 20 65 78 69 74 | #naks o|ff exit|
|000050b0| 09 65 6e 64 6f 66 0a 09 | 09 09 6e 61 6b 20 6f 66 |.endof..|..nak of|
|000050c0| 20 20 20 31 20 23 6e 61 | 6b 73 20 2b 21 20 65 78 | 1 #na|ks +! ex|
|000050d0| 69 74 09 65 6e 64 6f 66 | 0a 09 09 09 64 23 20 31 |it.endof|....d# 1|
|000050e0| 30 20 78 65 72 72 0a 09 | 09 65 6e 64 63 61 73 65 |0 xerr..|.endcase|
|000050f0| 0a 09 61 67 61 69 6e 20 | 3b 0a 3a 20 77 61 69 74 |..again |;.: wait|
|00005100| 2d 6e 61 6b 09 28 20 2d | 2d 20 29 20 5c 20 77 61 |-nak.( -|- ) \ wa|
|00005110| 69 74 20 66 6f 72 20 6e | 61 6b 0a 09 69 6e 69 74 |it for n|ak..init|
|00005120| 69 61 6c 2d 74 69 6d 65 | 6f 75 74 20 20 74 69 6d |ial-time|out tim|
|00005130| 65 64 2d 69 6e 0a 09 63 | 61 73 65 0a 09 09 2d 31 |ed-in..c|ase...-1|
|00005140| 20 20 6f 66 09 38 20 78 | 65 72 72 20 61 62 6f 72 | of.8 x|err abor|
|00005150| 74 2d 65 6e 64 09 65 6e | 64 6f 66 0a 09 09 63 61 |t-end.en|dof...ca|
|00005160| 6e 20 6f 66 09 39 20 78 | 65 72 72 20 61 62 6f 72 |n of.9 x|err abor|
|00005170| 74 2d 65 6e 64 09 65 6e | 64 6f 66 0a 09 09 6e 61 |t-end.en|dof...na|
|00005180| 6b 20 6f 66 09 31 20 23 | 6e 61 6b 73 20 2b 21 20 |k of.1 #|naks +! |
|00005190| 65 78 69 74 09 09 65 6e | 64 6f 66 0a 09 09 09 64 |exit..en|dof....d|
|000051a0| 23 20 31 30 20 78 65 72 | 72 0a 09 65 6e 64 63 61 |# 10 xer|r..endca|
|000051b0| 73 65 20 20 6c 6f 6e 67 | 2d 74 69 6d 65 6f 75 74 |se long|-timeout|
|000051c0| 20 3b 0a 3a 20 73 65 6e | 64 2d 68 65 61 64 65 72 | ;.: sen|d-header|
|000051d0| 09 28 20 2d 2d 20 29 20 | 5c 20 68 65 61 64 65 72 |.( -- ) |\ header|
|000051e0| 20 69 73 20 20 73 6f 68 | 20 73 65 63 74 6f 72 23 | is soh| sector#|
|000051f0| 20 20 73 65 63 74 6f 72 | 23 6e 6f 74 0a 09 73 6f | sector|#not..so|
|00005200| 68 20 6d 2d 65 6d 69 74 | 20 20 73 65 63 74 6f 72 |h m-emit| sector|
|00005210| 23 20 40 20 20 32 35 35 | 20 61 6e 64 20 20 64 75 |# @ 255| and du|
|00005220| 70 20 6d 2d 65 6d 69 74 | 20 20 32 35 35 20 78 6f |p m-emit| 255 xo|
|00005230| 72 20 6d 2d 65 6d 69 74 | 20 3b 0a 3a 20 73 65 6e |r m-emit| ;.: sen|
|00005240| 64 2d 73 65 63 74 6f 72 | 09 28 20 2d 2d 20 29 0a |d-sector|.( -- ).|
|00005250| 09 31 20 78 65 72 72 20 | 20 30 20 63 68 65 63 6b |.1 xerr | 0 check|
|00005260| 73 75 6d 20 21 0a 09 73 | 65 63 74 6f 72 2d 62 75 |sum !..s|ector-bu|
|00005270| 66 20 20 31 32 38 20 20 | 62 6f 75 6e 64 73 0a 09 |f 128 |bounds..|
|00005280| 64 6f 20 69 20 63 40 20 | 20 64 75 70 20 6d 2d 65 |do i c@ | dup m-e|
|00005290| 6d 69 74 20 63 68 65 63 | 6b 73 75 6d 20 2b 21 20 |mit chec|ksum +! |
|000052a0| 6c 6f 6f 70 20 3b 0a 3a | 20 73 65 6e 64 2d 63 68 |loop ;.:| send-ch|
|000052b0| 65 63 6b 73 75 6d 09 28 | 20 2d 2d 20 29 20 20 63 |ecksum.(| -- ) c|
|000052c0| 68 65 63 6b 73 75 6d 20 | 40 20 20 32 35 35 20 61 |hecksum |@ 255 a|
|000052d0| 6e 64 20 20 6d 2d 65 6d | 69 74 20 20 3b 0a 0a 3a |nd m-em|it ;..:|
|000052e0| 20 65 6e 64 2d 73 65 6e | 64 09 28 20 2d 2d 20 29 | end-sen|d.( -- )|
|000052f0| 0a 09 63 6c 6f 73 65 2d | 78 66 69 6c 65 0a 09 62 |..close-|xfile..b|
|00005300| 65 67 69 6e 09 65 6f 74 | 20 6d 2d 65 6d 69 74 20 |egin.eot| m-emit |
|00005310| 20 77 61 69 74 2d 61 63 | 6b 20 20 20 23 6e 61 6b | wait-ac|k #nak|
|00005320| 73 20 40 20 30 3d 0a 09 | 75 6e 74 69 6c 20 3b 0a |s @ 0=..|until ;.|
|00005330| 3a 20 28 78 2d 73 65 74 | 75 70 29 09 28 20 2d 2d |: (x-set|up).( --|
|00005340| 20 29 0a 20 20 20 20 20 | 20 20 20 78 6d 6f 64 65 | ). | xmode|
|00005350| 6d 23 63 68 61 6e 6e 65 | 6c 20 6d 2d 6f 70 65 6e |m#channe|l m-open|
|00005360| 20 20 69 6e 69 74 2d 6d | 6f 64 65 6d 0a 09 6d 75 | init-m|odem..mu|
|00005370| 6c 74 69 20 20 20 23 6e | 61 6b 73 20 6f 66 66 20 |lti #n|aks off |
|00005380| 20 23 63 6f 6e 74 72 6f | 6c 2d 7a 27 73 20 6f 66 | #contro|l-z's of|
|00005390| 66 20 20 73 65 63 74 6f | 72 23 20 6f 66 66 20 3b |f secto|r# off ;|
|000053a0| 0a 3a 20 72 65 63 65 69 | 76 65 2d 73 65 74 75 70 |.: recei|ve-setup|
|000053b0| 09 09 5c 20 28 20 2d 2d | 20 29 0a 09 28 78 2d 73 |..\ ( --| )..(x-s|
|000053c0| 65 74 75 70 29 20 20 31 | 20 65 78 70 65 63 74 65 |etup) 1| expecte|
|000053d0| 64 2d 73 65 63 74 6f 72 | 20 21 20 3b 0a 3a 20 73 |d-sector| ! ;.: s|
|000053e0| 65 6e 64 2d 73 65 74 75 | 70 09 09 5c 20 28 20 2d |end-setu|p..\ ( -|
|000053f0| 2d 20 29 0a 09 28 78 2d | 73 65 74 75 70 29 20 20 |- )..(x-|setup) |
|00005400| 31 20 73 65 63 74 6f 72 | 23 20 21 20 3b 0a 3a 20 |1 sector|# ! ;.: |
|00005410| 78 6d 6f 64 65 6d 2d 66 | 72 65 65 3f 09 09 28 20 |xmodem-f|ree?..( |
|00005420| 72 2f 77 20 66 6c 61 67 | 20 29 0a 09 78 6d 6f 64 |r/w flag| )..xmod|
|00005430| 65 6d 2d 66 64 20 40 20 | 30 3e 20 69 66 20 64 23 |em-fd @ |0> if d#|
|00005440| 20 2d 32 37 38 20 74 68 | 72 6f 77 20 74 68 65 6e | -278 th|row then|
|00005450| 20 78 72 65 61 64 2f 77 | 72 69 74 65 20 21 20 3b | xread/w|rite ! ;|
|00005460| 0a 0a 5c 20 28 72 65 63 | 65 69 76 65 29 20 61 6e |..\ (rec|eive) an|
|00005470| 64 20 28 73 65 6e 64 29 | 20 61 72 65 20 77 6f 72 |d (send)| are wor|
|00005480| 64 73 20 65 78 65 63 75 | 74 65 64 20 62 79 20 74 |ds execu|ted by t|
|00005490| 68 65 20 58 6d 6f 64 65 | 6d 2d 73 65 72 76 65 72 |he Xmode|m-server|
|000054a0| 0a 5c 20 74 68 65 20 65 | 78 70 65 63 74 20 78 6d |.\ the e|xpect xm|
|000054b0| 6f 64 65 6d 2d 66 64 20 | 74 6f 20 62 65 20 73 65 |odem-fd |to be se|
|000054c0| 74 20 63 6f 72 72 65 63 | 74 0a 3a 20 28 78 72 65 |t correc|t.: (xre|
|000054d0| 63 65 69 76 65 29 09 5c | 20 28 20 2d 2d 20 29 0a |ceive).\| ( -- ).|
|000054e0| 09 72 65 63 65 69 76 65 | 2d 73 65 74 75 70 09 64 |.receive|-setup.d|
|000054f0| 23 20 31 31 20 78 65 72 | 72 0a 09 67 6f 62 62 6c |# 11 xer|r..gobbl|
|00005500| 65 20 20 6e 61 6b 20 6d | 2d 65 6d 69 74 0a 09 62 |e nak m|-emit..b|
|00005510| 65 67 69 6e 20 20 20 3f | 69 6e 74 65 72 72 75 70 |egin ?|interrup|
|00005520| 74 20 20 72 65 63 65 69 | 76 65 2d 70 61 63 6b 65 |t recei|ve-packe|
|00005530| 74 0a 09 75 6e 74 69 6c | 09 64 23 20 31 33 20 78 |t..until|.d# 13 x|
|00005540| 65 72 72 20 20 73 74 6f | 70 20 3b 0a 3a 20 28 78 |err sto|p ;.: (x|
|00005550| 73 65 6e 64 29 09 5c 20 | 28 20 2d 2d 20 29 0a 09 |send).\ |( -- )..|
|00005560| 73 65 6e 64 2d 73 65 74 | 75 70 20 09 64 23 20 31 |send-set|up .d# 1|
|00005570| 32 20 78 65 72 72 0a 09 | 67 6f 62 62 6c 65 09 77 |2 xerr..|gobble.w|
|00005580| 61 69 74 2d 6e 61 6b 20 | 20 23 6e 61 6b 73 20 6f |ait-nak | #naks o|
|00005590| 66 66 0a 09 62 65 67 69 | 6e 09 3f 69 6e 74 65 72 |ff..begi|n.?inter|
|000055a0| 72 75 70 74 0a 09 09 23 | 6e 61 6b 73 20 40 20 30 |rupt...#|naks @ 0|
|000055b0| 3d 0a 09 09 69 66 09 73 | 65 63 74 6f 72 2d 62 75 |=...if.s|ector-bu|
|000055c0| 66 20 72 65 61 64 2d 73 | 65 63 74 6f 72 0a 09 09 |f read-s|ector...|
|000055d0| 09 69 66 20 65 6e 64 2d | 73 65 6e 64 20 64 23 20 |.if end-|send d# |
|000055e0| 31 33 20 78 65 72 72 20 | 73 74 6f 70 20 74 68 65 |13 xerr |stop the|
|000055f0| 6e 0a 09 09 74 68 65 6e | 0a 09 09 73 65 6e 64 2d |n...then|...send-|
|00005600| 68 65 61 64 65 72 20 20 | 73 65 6e 64 2d 73 65 63 |header |send-sec|
|00005610| 74 6f 72 20 20 73 65 6e | 64 2d 63 68 65 63 6b 73 |tor sen|d-checks|
|00005620| 75 6d 20 20 77 61 69 74 | 2d 61 63 6b 0a 09 09 23 |um wait|-ack...#|
|00005630| 6e 61 6b 73 20 40 20 30 | 3d 20 20 69 66 20 20 31 |naks @ 0|= if 1|
|00005640| 20 73 65 63 74 6f 72 23 | 20 2b 21 20 20 74 68 65 | sector#| +! the|
|00005650| 6e 0a 09 61 67 61 69 6e | 20 3b 0a 0a 74 61 73 6b |n..again| ;..task|
|00005660| 3a 20 58 6d 6f 64 65 6d | 2d 73 65 72 76 65 72 0a |: Xmodem|-server.|
|00005670| 3a 20 28 72 65 63 65 69 | 76 65 29 09 5c 20 28 20 |: (recei|ve).\ ( |
|00005680| 69 64 20 2d 2d 20 29 0a | 09 78 6d 6f 64 65 6d 2d |id -- ).|.xmodem-|
|00005690| 66 64 20 21 20 20 5b 27 | 5d 20 28 78 72 65 63 65 |fd ! ['|] (xrece|
|000056a0| 69 76 65 29 20 20 58 6d | 6f 64 65 6d 2d 73 65 72 |ive) Xm|odem-ser|
|000056b0| 76 65 72 20 73 74 61 72 | 74 20 3b 0a 3a 20 28 73 |ver star|t ;.: (s|
|000056c0| 65 6e 64 29 09 5c 20 28 | 20 69 64 20 2d 2d 20 29 |end).\ (| id -- )|
|000056d0| 0a 09 78 6d 6f 64 65 6d | 2d 66 64 20 21 20 20 5b |..xmodem|-fd ! [|
|000056e0| 27 5d 20 28 78 73 65 6e | 64 29 20 58 6d 6f 64 65 |'] (xsen|d) Xmode|
|000056f0| 6d 2d 73 65 72 76 65 72 | 20 73 74 61 72 74 20 3b |m-server| start ;|
|00005700| 0a 0a 66 6f 72 74 68 20 | 64 65 66 69 6e 69 74 69 |..forth |definiti|
|00005710| 6f 6e 73 0a 3a 20 2e 78 | 6d 6f 64 65 6d 2d 69 6e |ons.: .x|modem-in|
|00005720| 66 6f 09 28 20 2d 2d 20 | 29 0a 09 3f 3f 63 72 20 |fo.( -- |)..??cr |
|00005730| 78 6d 6f 64 65 6d 2d 66 | 64 20 40 20 30 20 3c 3d |xmodem-f|d @ 0 <=|
|00005740| 20 69 66 20 2e 22 20 4e | 6f 20 58 6d 6f 64 65 6d | if ." N|o Xmodem|
|00005750| 20 74 72 61 6e 73 66 65 | 72 22 20 65 78 69 74 20 | transfe|r" exit |
|00005760| 74 68 65 6e 0a 09 2e 22 | 20 58 6d 6f 64 65 6d 20 |then..."| Xmodem |
|00005770| 22 20 78 72 65 61 64 2f | 77 72 69 74 65 20 40 20 |" xread/|write @ |
|00005780| 30 3d 0a 09 69 66 09 2e | 22 20 72 65 61 64 69 6e |0=..if..|" readin|
|00005790| 67 20 22 20 78 66 6e 61 | 6d 65 20 22 2e 0a 09 09 |g " xfna|me "....|
|000057a0| 63 72 20 2e 22 20 72 65 | 61 64 20 22 20 65 78 70 |cr ." re|ad " exp|
|000057b0| 65 63 74 65 64 2d 73 65 | 63 74 6f 72 20 40 09 2e |ected-se|ctor @..|
|000057c0| 64 20 2e 22 20 20 73 65 | 63 74 6f 72 73 22 0a 09 |d ." se|ctors"..|
|000057d0| 65 6c 73 65 20 09 2e 22 | 20 77 72 69 74 69 6e 67 |else .."| writing|
|000057e0| 20 22 20 78 66 6e 61 6d | 65 20 22 2e 20 33 20 73 | " xfnam|e ". 3 s|
|000057f0| 70 61 63 65 73 0a 09 09 | 78 6d 6f 64 65 6d 2d 66 |paces...|xmodem-f|
|00005800| 64 20 40 20 66 73 69 7a | 65 20 31 32 37 20 2b 20 |d @ fsiz|e 127 + |
|00005810| 31 32 38 20 2f 09 2e 64 | 20 2e 22 20 20 73 65 63 |128 /..d| ." sec|
|00005820| 74 6f 72 73 22 0a 09 09 | 63 72 20 2e 22 20 73 65 |tors"...|cr ." se|
|00005830| 6e 74 20 22 20 73 65 63 | 74 6f 72 23 20 40 09 09 |nt " sec|tor# @..|
|00005840| 2e 64 20 2e 22 20 20 73 | 65 63 74 6f 72 73 22 0a |.d ." s|ectors".|
|00005850| 09 74 68 65 6e 20 3b 0a | 3a 20 72 65 63 65 69 76 |.then ;.|: receiv|
|00005860| 65 09 5c 20 6e 61 6d 65 | 20 28 20 2d 2d 20 29 0a |e.\ name| ( -- ).|
|00005870| 09 30 20 78 6d 6f 64 65 | 6d 2d 66 72 65 65 3f 20 |.0 xmode|m-free? |
|00005880| 62 6c 77 6f 72 64 20 6c | 6f 63 61 6c 73 7c 20 66 |blword l|ocals| f|
|00005890| 6e 61 6d 65 20 7c 0a 09 | 66 6e 61 6d 65 20 6d 61 |name |..|fname ma|
|000058a0| 6b 65 20 30 3d 20 69 66 | 20 64 23 20 2d 32 37 33 |ke 0= if| d# -273|
|000058b0| 20 74 68 72 6f 77 20 74 | 68 65 6e 20 0a 09 66 6e | throw t|hen ..fn|
|000058c0| 61 6d 65 20 6d 6f 64 69 | 66 79 20 66 6f 70 65 6e |ame modi|fy fopen|
|000058d0| 20 3f 64 75 70 20 30 3d | 20 69 66 20 64 23 20 2d | ?dup 0=| if d# -|
|000058e0| 32 37 36 20 74 68 72 6f | 77 20 74 68 65 6e 0a 09 |276 thro|w then..|
|000058f0| 66 6e 61 6d 65 20 78 66 | 6e 61 6d 65 20 22 63 6f |fname xf|name "co|
|00005900| 70 79 20 28 72 65 63 65 | 69 76 65 29 20 3b 0a 3a |py (rece|ive) ;.:|
|00005910| 20 73 65 6e 64 09 5c 20 | 6e 61 6d 65 20 28 20 2d | send.\ |name ( -|
|00005920| 2d 20 29 0a 09 31 20 78 | 6d 6f 64 65 6d 2d 66 72 |- )..1 x|modem-fr|
|00005930| 65 65 3f 20 62 6c 77 6f | 72 64 20 6c 6f 63 61 6c |ee? blwo|rd local|
|00005940| 73 7c 20 66 6e 61 6d 65 | 20 7c 0a 09 66 6e 61 6d |s| fname| |..fnam|
|00005950| 65 20 72 65 61 64 20 66 | 6f 70 65 6e 20 3f 64 75 |e read f|open ?du|
|00005960| 70 20 30 3d 20 69 66 20 | 64 23 20 2d 32 37 35 20 |p 0= if |d# -275 |
|00005970| 74 68 72 6f 77 20 74 68 | 65 6e 0a 09 66 6e 61 6d |throw th|en..fnam|
|00005980| 65 20 78 66 6e 61 6d 65 | 20 22 63 6f 70 79 20 28 |e xfname| "copy (|
|00005990| 73 65 6e 64 29 20 3b 0a | 6f 6e 6c 79 20 66 6f 72 |send) ;.|only for|
|000059a0| 74 68 20 61 6c 73 6f 20 | 64 65 66 69 6e 69 74 69 |th also |definiti|
|000059b0| 6f 6e 73 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |ons.....|........|
|000059c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a00| 21 46 6f 72 74 68 6d 61 | 63 73 2e 6c 69 62 2e 6d |!Forthma|cs.lib.m|
|00005a10| 6f 64 65 6d 2b 00 00 00 | 00 00 00 00 00 00 00 00 |odem+...|........|
|00005a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a60| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00005a70| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00005a80| 20 20 20 32 31 34 30 00 | 20 36 30 30 31 33 32 35 | 2140.| 6001325|
|00005a90| 32 33 33 00 20 31 36 30 | 33 35 00 20 30 00 00 00 |233. 160|35. 0...|
|00005aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b00| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00005b10| 37 35 30 36 00 20 36 30 | 36 34 30 30 37 33 33 35 |7506. 60|64007335|
|00005b20| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 36 20 |. | 3.46 |
|00005b30| 33 30 64 30 30 65 64 64 | 00 20 20 20 20 20 20 20 |30d00edd|. |
|00005b40| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00005b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c00| 5c 20 70 6f 72 74 61 62 | 6c 65 20 66 69 6c 65 20 |\ portab|le file |
|00005c10| 64 65 66 69 6e 69 6e 69 | 6e 67 20 6d 6f 64 65 6d |definini|ng modem|
|00005c20| 20 65 78 74 65 6e 73 69 | 6f 6e 73 20 48 53 20 30 | extensi|ons HS 0|
|00005c30| 31 2e 30 37 2e 39 34 0a | 0a 5c 6e 65 65 64 73 20 |1.07.94.|.\needs |
|00005c40| 6d 6f 64 65 6d 20 63 72 | 20 2e 28 20 4c 6f 61 64 |modem cr| .( Load|
|00005c50| 20 78 78 78 2e 6d 6f 64 | 65 6d 20 62 65 66 6f 72 | xxx.mod|em befor|
|00005c60| 65 20 74 68 69 73 21 20 | 29 20 61 62 6f 72 74 0a |e this! |) abort.|
|00005c70| 6f 6e 6c 79 20 66 6f 72 | 74 68 20 61 6c 73 6f 20 |only for|th also |
|00005c80| 6d 6f 64 65 6d 20 61 6c | 73 6f 20 64 65 66 69 6e |modem al|so defin|
|00005c90| 69 74 69 6f 6e 73 20 64 | 65 63 69 6d 61 6c 0a 0a |itions d|ecimal..|
|00005ca0| 68 23 20 31 30 20 63 6f | 6e 73 74 61 6e 74 20 62 |h# 10 co|nstant b|
|00005cb0| 75 66 66 2d 6c 65 6e 0a | 63 72 65 61 74 65 20 6d |uff-len.|create m|
|00005cc0| 2d 69 6e 2d 62 75 66 66 | 65 72 09 62 75 66 66 2d |-in-buff|er.buff-|
|00005cd0| 6c 65 6e 20 61 6c 6c 6f | 74 0a 63 72 65 61 74 65 |len allo|t.create|
|00005ce0| 20 6d 6f 64 65 6d 2d 73 | 74 72 69 6e 67 09 62 75 | modem-s|tring.bu|
|00005cf0| 66 66 2d 6c 65 6e 20 20 | 34 20 2b 20 61 6c 6c 6f |ff-len |4 + allo|
|00005d00| 74 0a 76 61 72 69 61 62 | 6c 65 20 66 6f 75 6e 64 |t.variab|le found|
|00005d10| 3f 0a 76 61 72 69 61 62 | 6c 65 20 66 69 6e 64 69 |?.variab|le findi|
|00005d20| 6e 67 3f 0a 63 72 65 61 | 74 65 20 31 31 2d 63 6f |ng?.crea|te 11-co|
|00005d30| 6d 6d 61 6e 64 09 68 23 | 20 32 30 20 61 6c 6c 6f |mmand.h#| 20 allo|
|00005d40| 74 0a 0a 3a 20 6d 2d 63 | 72 09 63 61 72 72 65 74 |t..: m-c|r.carret|
|00005d50| 20 6d 2d 65 6d 69 74 20 | 3b 0a 3a 20 6d 2d 22 2e | m-emit |;.: m-".|
|00005d60| 09 63 6f 75 6e 74 20 6d | 2d 74 79 70 65 20 3b 09 |.count m|-type ;.|
|00005d70| 28 20 73 74 72 20 2d 2d | 20 29 09 5c 20 77 72 69 |( str --| ).\ wri|
|00005d80| 74 65 20 61 20 6c 69 6e | 65 20 74 6f 20 6d 6f 64 |te a lin|e to mod|
|00005d90| 65 6d 0a 3a 20 72 65 6d | 65 6d 62 65 72 2d 6d 2d |em.: rem|ember-m-|
|00005da0| 6b 65 79 09 28 20 6b 65 | 79 20 2d 2d 20 6b 65 79 |key.( ke|y -- key|
|00005db0| 20 29 0a 09 6d 2d 69 6e | 2d 62 75 66 66 65 72 20 | )..m-in|-buffer |
|00005dc0| 64 75 70 20 63 68 61 72 | 2b 20 73 77 61 70 20 68 |dup char|+ swap h|
|00005dd0| 23 20 31 30 20 20 63 6d | 6f 76 65 0a 09 64 75 70 |# 10 cm|ove..dup|
|00005de0| 20 6d 2d 69 6e 2d 62 75 | 66 66 65 72 20 5b 20 62 | m-in-bu|ffer [ b|
|00005df0| 75 66 66 2d 6c 65 6e 20 | 31 2d 20 5d 20 6c 69 74 |uff-len |1- ] lit|
|00005e00| 65 72 61 6c 20 2b 20 63 | 21 20 3b 0a 3a 20 72 65 |eral + c|! ;.: re|
|00005e10| 63 65 69 76 65 64 2d 73 | 74 72 69 6e 67 3f 09 28 |ceived-s|tring?.(|
|00005e20| 20 73 74 72 20 2d 2d 20 | 66 6c 61 67 20 29 0a 09 | str -- |flag )..|
|00005e30| 63 6f 75 6e 74 20 6d 2d | 69 6e 2d 62 75 66 66 65 |count m-|in-buffe|
|00005e40| 72 20 62 75 66 66 2d 6c | 65 6e 20 2b 20 28 20 61 |r buff-l|en + ( a|
|00005e50| 64 64 72 31 20 63 6f 75 | 6e 74 20 65 6e 64 2d 61 |ddr1 cou|nt end-a|
|00005e60| 64 64 72 20 29 0a 09 6f | 76 65 72 20 2d 20 73 77 |ddr )..o|ver - sw|
|00005e70| 61 70 20 63 6f 6d 70 20 | 30 3d 20 3b 0a 3a 20 73 |ap comp |0= ;.: s|
|00005e80| 74 72 69 6e 67 2d 66 6f | 75 6e 64 3f 09 09 28 20 |tring-fo|und?..( |
|00005e90| 6b 65 79 20 2d 2d 20 6b | 65 79 20 29 09 5c 20 73 |key -- k|ey ).\ s|
|00005ea0| 65 74 20 66 6c 61 67 0a | 09 6d 6f 64 65 6d 2d 73 |et flag.|.modem-s|
|00005eb0| 74 72 69 6e 67 20 72 65 | 63 65 69 76 65 64 2d 73 |tring re|ceived-s|
|00005ec0| 74 72 69 6e 67 3f 20 69 | 66 20 66 6f 75 6e 64 3f |tring? i|f found?|
|00005ed0| 20 6f 6e 20 74 68 65 6e | 20 3b 0a 5c 20 72 65 64 | on then| ;.\ red|
|00005ee0| 65 66 69 6e 69 74 69 6f | 6e 20 6f 66 20 6d 2d 6b |efinitio|n of m-k|
|00005ef0| 65 79 0a 3a 20 6d 2d 6b | 65 79 09 09 09 28 20 2d |ey.: m-k|ey...( -|
|00005f00| 2d 20 63 68 61 72 20 29 | 0a 09 6d 2d 6b 65 79 20 |- char )|..m-key |
|00005f10| 72 65 6d 65 6d 62 65 72 | 2d 6d 2d 6b 65 79 0a 09 |remember|-m-key..|
|00005f20| 66 69 6e 64 69 6e 67 3f | 20 40 20 69 66 20 73 74 |finding?| @ if st|
|00005f30| 72 69 6e 67 2d 66 6f 75 | 6e 64 3f 20 74 68 65 6e |ring-fou|nd? then|
|00005f40| 20 3b 0a 0a 5c 20 77 61 | 69 74 20 66 6f 72 20 61 | ;..\ wa|it for a|
|00005f50| 20 73 74 72 69 6e 67 20 | 66 72 6f 6d 20 74 68 65 | string |from the|
|00005f60| 20 6d 6f 64 65 6d 0a 3a | 20 73 74 72 69 6e 67 2d | modem.:| string-|
|00005f70| 77 61 69 74 09 28 20 73 | 74 72 20 6d 73 65 63 20 |wait.( s|tr msec |
|00005f80| 2d 2d 20 74 72 75 65 20 | 29 09 5c 20 77 61 69 74 |-- true |).\ wait|
|00005f90| 73 20 6d 73 65 63 20 66 | 6f 72 20 73 74 72 69 6e |s msec f|or strin|
|00005fa0| 67 20 73 74 72 20 74 6f | 20 61 70 70 65 61 72 0a |g str to| appear.|
|00005fb0| 09 66 69 6e 64 69 6e 67 | 3f 20 6f 6e 20 20 66 6f |.finding|? on fo|
|00005fc0| 75 6e 64 3f 20 6f 66 66 | 20 73 77 61 70 20 6d 6f |und? off| swap mo|
|00005fd0| 64 65 6d 2d 73 74 72 69 | 6e 67 20 22 63 6f 70 79 |dem-stri|ng "copy|
|00005fe0| 0a 09 6d 2d 69 6e 2d 62 | 75 66 66 65 72 20 68 23 |..m-in-b|uffer h#|
|00005ff0| 20 31 30 20 65 72 61 73 | 65 0a 09 30 20 3f 64 6f | 10 eras|e..0 ?do|
|00006000| 20 31 30 30 20 6d 73 20 | 20 66 6f 75 6e 64 3f 20 | 100 ms | found? |
|00006010| 40 20 69 66 20 6c 65 61 | 76 65 20 74 68 65 6e 20 |@ if lea|ve then |
|00006020| 20 31 30 30 20 2b 6c 6f | 6f 70 0a 09 66 6f 75 6e | 100 +lo|op..foun|
|00006030| 64 3f 20 40 20 66 69 6e | 64 69 6e 67 3f 20 6f 66 |d? @ fin|ding? of|
|00006040| 66 20 3b 0a 6f 6e 6c 79 | 20 66 6f 72 74 68 20 61 |f ;.only| forth a|
|00006050| 6c 73 6f 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 0a |lso defi|nitions.|
|00006060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006200| 21 46 6f 72 74 68 6d 61 | 63 73 2e 6c 69 62 2e 63 |!Forthma|cs.lib.c|
|00006210| 6f 6e 6e 65 63 74 00 00 | 00 00 00 00 00 00 00 00 |onnect..|........|
|00006220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006260| 00 00 00 00 20 20 20 36 | 30 30 00 00 20 20 20 20 |.... 6|00.. |
|00006270| 20 30 00 00 20 20 20 20 | 20 30 00 00 20 20 20 20 | 0.. | 0.. |
|00006280| 20 20 20 33 32 37 35 00 | 20 36 31 35 33 33 35 36 | 3275.| 6153356|
|00006290| 33 37 33 00 20 31 36 34 | 31 31 00 20 30 00 00 00 |373. 164|11. 0...|
|000062a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006300| 00 41 72 63 68 69 65 20 | 00 33 37 37 37 37 37 37 |.Archie |.3777777|
|00006310| 37 35 30 36 00 33 32 36 | 34 30 37 33 36 30 37 34 |7506.326|40736074|
|00006320| 00 20 20 20 20 20 20 20 | 20 20 20 33 00 34 36 20 |. | 3.46 |
|00006330| 64 36 38 33 62 63 33 63 | 00 20 20 20 20 20 20 20 |d683bc3c|. |
|00006340| 20 20 20 30 20 41 00 00 | 00 00 00 00 00 00 00 00 | 0 A..|........|
|00006350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
